To reuse some code...
$ perl -le'
$_ = "D.PRS.WEB.02.10.001.1";
print;
s/\.[^.]{0,2}\z//;
s/\.[^.]{4,}\z//;
print;
'Will replace 0 to 2 or more than 3 characters with "" To get digits and not "any character except a dot(.)" replace "[^.]" with "[0-9]" or the equivalents: "\d" and "[:digits:]" -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
