Select Code to Download

my $pat = '';
for ($ARGV[0]) {
...
   my $next = substr($_, $pos, 1);
   die("Unrecognized character \"$next\" at pos $pos\n");
}