if ( $Namelist =~ m/(\w+a)/ ) {