Select Code to Download

#!/usr/bin/perl
use strict;
...
        print "No match for >$str<\n";
    }
}

Matched >Z.z< in >name = Z.z<
No match for >name = 1.z<
...
Matched >aaa< in >name = aaa<
Matched >aa_< in >name = aa_<
Matched >xxx< in >name = xxx@<