Perl scripts for 05/22/2013