my $funcName     = (caller(0))[3];
    my $player_name  = shift;
    my $mapname      = shift;
   (my $gamedir      = &send(1,"sv_gamedir"))
                     =~ s/.*: (.*)[\r\n]+/$1/;

    (my $testgamedir = $gamedir) =~ s/\W/*/;
    print STDERR "\$HOME = $HOME\n\$testgamedir = $testgamedir\n\$mapname = $mapname\n";

##</code><code>##

$HOME = /services/qw
$testgamedir = fortress*
$mapname = 2fort5
Map doesn't exist! -> /services/qw/fortress/maps/2fort5.bsp

##</code><code>##

	my $funcName     = (caller(0))[3];
    my $player_name  = shift;
    my $mapname      = shift;
   (my $gamedir      = &send(1,"sv_gamedir"))
                     =~ s/.*: (.*)[\r\n]+/$1/;
    chop($gamedir);

    (my $testgamedir = $gamedir) =~ s/\W/*/;
    print STDERR "\$HOME = $HOME\n\$testgamedir = $testgamedir\n\$mapname = $mapname\n";

##</code><code>##

$HOME = /services/qw
$testgamedir = fortress
$mapname = 2fort5
Map exists! -> /services/qw/fortress/maps/2fort5.bsp