perl -wne 's/[^?]\47/\47\n/g; print' filename