Scripts for issue #84 - Perl