Select Code to Download

$mystring = ($mystring =~ /(\w{3,})$/) ? $1 : '';
Print “DOE”;

$mystring = ($mystring =~ / (\w{1,2}\s)(\w+)$/) ? $2 : '';
Print “JOE”;

$mystring = ($mystring =~ /(\w{1}\s\w+)|(\w{3,})$/) ? $1 : '';

print "\n $mystring\n";

#!/usr/bin/perl

...
  print "\n\n $2\n\n";
  
}