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