Perl playground