Help for this page
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