use strict;
use warnings;

my $string = "Good O'l Time"; 
$string =~ y/ '/\_/d;
print $string;