$-^=s/.+/Why do you say, $-$&$-?/for($_=<>)x<>;y/01"/"'/;print