...
 my $input = <STDIN>;
 chomp $input;

 my $regex;
 $regex = transform_string_to_optimal_matching_regex($input);

 if( $input =~ /$regex/ ) {
   print "regex |$regex| to input |$input| mapping succeeded\n";
 } 
 ...