#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use CGI;

my $query = CGI->new;
my $input = $query->param('team_name');

$input =~	s/[^a-zA-Z0-9\s!]/_/g;

$input =~ s/!/!/g;  # Escaping ! for HTML
$input =~ s/!/\!/g;    # Escaping ! for Perl