$var =~ /(["'])[^\1]*?\1/;