print join "\n" => grep /"\w+?/, qw( abc efgh" "ijk lmn "opqr stuv");