#!/usr/bin/perl -w
use strict;
my $test = 'Bill\'s Class';
print "$test\n";
$test =~ tr/\'/_/; # this does the work
print "$test \n";