Make sure the newlines are in the correct places.

#!/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";
[download]