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