#!perl -p $_&=oonn x$$;y;";.