$ perl -e " $_=q/warn(66)/; s/(.*)/$1/ee; " 66 at (eval 1) line 1.