Select Code to Download

if ($check =~ $cmd) {
print $match_1."\n";
...
print $match_2."\n";
print $cmd."\n\n";
}

use Data::Dumper;
print Dumper([ $match_1, $check, $match_2, $cmd ]) if $check eq $cmd;

  grep jonsmith mil-dic.txt | cat -veT