my $string = "TOM.1 hat alles";
$string =~ s/TOM\.1/JERRY.2/g;
print $string;