use v5.12;
use warnings;


my $Namelist  = 'Wilma Fred Barney Betty Dino';

if ( $Namelist =~  m/(\w+a)/ ) {
    print "Matched|$<$&$>|\n";
    say "The name that matched was $1 \n";
}  else {
    print "No match: \n";
}