Scripts for issue #82 - Perl