my $qs =qr/'(?:[^\\']|\\.)*'/;
my $qqs=qr/"(?:[^\\"]|\\.)*"/;