Select Code to Download

 ...
 my $input = <STDIN>;
...
   print "regex |$regex| to input |$input| mapping succeeded\n";
 } 
 ...

sub transform_string_to_optimal_matching_regex {
 my $given_string = shift;
...
 }
  return $regex;   
}