(echo '"'; echo "abcd") | perl -le 'local $/;$_=<>; $*=1; print "[$_]"; if (/"\n^abc/) { print "true" }'