Select Code to Download

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