#!/bin/perl 
use v5.12;
use warnings; 

##</code><code>##

     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";  
          } 

##</code><code>##

 syntax error at ./exer_8_3 line 8, near "$Namelist ~" 
 syntax error at ./exer_8_3 line 11, near "}"