$pattern =~ s/(.*)/qq(qq($1))/ee;