perl -pe 's/("|'"'"')[^\1]*\1/check/g' "aaa" "aaa" check