regexp . mit \. ersetzen

[eddi]

Hallo,

bei mir arbeitet folgendes Script ganz wunderbar:

#!/usr/bin/perl -w  
  
use strict;  
my $Text = "Franz jagt .im komplett .verwahrlosten Taxi quer durch .Bayern 12345.67890";  
$Text =~ s/\./\\./gi;  
  
print "$Text\n";

Gruß aus Berlin!
eddi