#!/perl/bin/perl -w
use strict;
my $string = "Hello $ World \n";
$string  =~ tr/A-Za-z0-9.-_//cd;
print $string;

###
### prints out 
Global symbol "$World" requires explicit package name