this may defeat the point of trying to obfuscate it, but i think shorter is better.
this is only 74 characters to your 89 (although removing whitespace is cheap) my$c=';';my$q=q;print"my\$c='$c'${c}my\$q=q$c$q$c${c}eval\$q$c";;eval$q;