#!/usr/bin/perl -w
@_= ('#!/usr/bin/perl -w
@_= (',');sub _{$_=pop;$_=~s/'."'".'/'."'".'."'."'".'".'."'".'/sg;$_="'."'".'$_'."'".'";$__=$_;$__=~s/'."'".'/'."'".'."".'."'".'/;$_;}print $_[0].&_($_[0]).'."'".','."'".'.&_($_[1]).$_[1]."\n";');sub _{$_=pop;$_=~s/'/'."'".'/sg;$_="'$_'";$__=$_;$__=~s/'/'."".'/;$_;}print $_[0].&_($_[0]).','.&_($_[1]).$_[1]."\n";