#!perl -pl
$_="Why do you say, '$_'?",y/'"/"'/for($_)x<>,y;';"