Select Code to Download

#!/usr/bin/perl -l
#
...
    print q{Match} if $string =~ $rxCondMatch;
    print q{-} x 20;
}

a123ga123b
Match
...
--------------------
d663h
--------------------