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