D:\programs\activeperl\Perl\bin>perl -MO=Deparse -e "$;='#';$a=$;;print $a"