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