$ perl -Mstrict -Mwarnings -E '$_ = qq{"\n}; say if /[^"]$/'
"