Perl Scripts demonstrating knowledge of regular expressions