Scripts for issue #92 - Perl