Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "\nBAD Tests (Should not match.)\n";
print /$pat/ ? '   ': 'no ', "match: '$_'\n" for @bad;