Does any one know how to do this with just a substitution?
perl -e '$a=q{Data.m1234.D1234567890};
$a =~/\d+$/;
$numbers = q{#} x length($&);
$a=~ s/\d+$/$numbers/; print "$a\n";'What " Data.m1234.D########## " as a result. John W Moon -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
