#!/usr/bin/perl -p
if (/^((\d+\.)*\d+)/) {
    my $h = $1;
    my $l = ($h =~ tr/././) + 1;
    s/^((\d+\.)*\d+)/'*' x $l/e;
}