Select Code to Download

$sql =~ s/(?<=select)\s*[^,]*?\s+as//gi ;
$sql =~ s/(?<=,)\s*[^,]*?\s+as//gi ;

$sql =~ s/(?<=select|,)\s*[^,]*?\s+as//gi ;

Variable length lookbehind not implemented in regex