Magic Perl