C:\Dokumente und Einstellungen\Renee>perl
my $string = "hallo'hallo'hallo";
my $var = $string =~ tr/'//;

print $string," - ",$var;
^D
hallo'hallo'hallo - 2