Learning Perl Vars

[cristian]

perl -e 'for($",{},[],\_,**,\&_,\\$_,$^,$~,jk,$^X)
{$__= $_;if($_=~/\//){($__)=$_=~/\/([^\/]+)$/}else
{$__=~s/\(.*\)|:|\*|_//g}push@_,split//,$__;}print
lc"$_[42]$_[31]$_[27]$_[33]$_[0]$_[2]$_[19]$_[34]"
."$_[33]$_[4]$_[23]$_[24]$_[0]$_[35]$_[23]$_[24]".
"$_[13]$_[0]$_[1]$_[14]$_[20]$_[43]$_[25]$_[15],";'