Scripts for issue #86 - Perl