perl -MRegexp::Genex=:all -le 'print for strings(qr/(.*)test(.*)/)' 3'e3''test 3'e3'test~ 3'e3'test 3'e3testÿÌ 3'e3testÿ 3'e3test 3'etest 3'etest 3'etest 3'etest 3'testÌeÿ 3'testÌe 3'testÌe 3'testÌ 3'test 3test~ 3test test