$string = "Good O'l Time"; 
$string =~ s/\ /_/g;
$string =~ s/\'//g;
print $string;