Select Code to Download

#!/usr/bin/perl

...

   return $full;
}

sub leftover{
  my ($full, $part) = @_;
...
    #then remove the matched character from $part
  }
}