Useful Perl Scripts With Regular Expressions