You'll want that comma at the end of the first line to be a semicolon. There are a couple other typos scattered in there, too -- use strict will probably help to some extent in keeping tabs on those.

Update: Whee! 100th post -- and, coincidentally enough, it's on my birthday, too.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'