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

##</code><code>##

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