Select Code to Download

sub trunc_match
{
        my ($what) = @_;
...
{
        print "Truncated, ends in '$1'\n";
}