Select Code to Download

my @tokens;
while ($input =~ /\G( pattern...  )/gcx) {
...
if (pos $input < length $input) {
  say "Parse error at ....";
}