very perl-y :)