Select Code to Download

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