Not sure about the Perl end of things, but if you're on *nix, you can use the ulimit -m command or the /etc/security/limits.conf file (assuming you're using PAM) to some effect.

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print