Select Code to Download

foreach my $combine (sort keys %$self) {
  if($key =~ /^$combine(.*)$/) {
...
    print "Found (suffix $combine): $1\n";
  }
}