perl -e " printf \"'%s'\n\", join \"', '\",  '...tangled web was woven...'=~m/(.*?w)/  ;"
'...tangled w'

perl -e " printf \"'%s'\n\", join \"', '\",  '...tangled web was woven...'=~m/(.*w)/  ;"
'...tangled web was w'