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

##</code><code>##

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

##</code><code>##

  grep jonsmith mil-dic.txt | cat -veT