#!/bin/perl
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";
          } 
 syntax error at ./exer_8_3 line 8, near "m/(\w+a)/  {"
 syntax error at ./exer_8_3 line 11, near "}"