in reply to Why won't it work?
/$\/;print $a.$/
-- #!/usr/bin/perl for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} [download]