instead of

$lRow =~ tr/\. xxxx$//;  # here is where I have trouble
[download]

Try:

$lRow =~ s/\.[^.]+$/./;
[download]

-enlil