Select Code to Download

my $to_match = 'xyz123abc';
$to_match = join '\.*', map {quotemeta} split //, $to_match;
...
$to_match = qr/$to_match/;

/$to_match/ && print for <>;