Add 6 chars. 5 for my@l; and one for the s modifier on your regex. 39 looks like the score to beat.

japhy -- Perl and Regex Hacker