$/=$";@s=<>=~/./g;$s[<>]=$s[<>]="";print@s