# Doesn't handle embedded like-quotes my $re_simpleQuoted = qr[ ( ["'] ) ( (??{ "[^\1]+?" }) ) \1 ]x;