prośba o pomoc

[rezydent]

Witam wszystkich. Postanowiłem skorzystać z języka perl aby zmodyfikować sobie plik tekstowy. Przykład tego pliku poniżej

ala ma kota, kot ma lale
23.240.34.12
129.12.67.100
data 12-30-2012

chciałbym aby program pozostawił mi tylko adresy ip zamieniając ostatnie czyfry na * czyli

23.240.34.*
129.12.67.*

napisałem takie prosty program

#!/usr/bin/perl -w
use strict;
my $in = $ARGV[0];
unless (defined $in) {
die "Sposób użycia programu: $0 nazwa pliku";
}
my $out = $in;
$out =~ s/(\.\w+)?$/.out/;
unless (open IN, "<$in") {
die "Błąd odczytu '$in': $!";
}
unless (open OUT, ">logi_poprawione.txt") {
die "Błąd zapisu '$out':$!";
}
while (<IN>) {
s/[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}/./;
print OUT $_;
}

ale nie działa to.
Co mam zmienić aby było ok ? Ktoś by mi pomógł?