$in =~ /(["]?)[^" ]+\1/ [download]
In reply to Re^2: validating a quoted string by hellosarathy in thread validating a quoted string by hellosarathy