Perl Magic.