sub clean_sql {
    my $sql = shift;
    $sql =~ s/\s+/ /msg;
    $sql
};

# and call it as

my $sql = clean_sql("SELECT *
                     FROM sometable
                     ...
                    ");