Select Code to Download

#!/usr/local/bin/perl

...
  $start++;
}
print "$input -> $start\n";

abcdef -> abcdef