You'll want to use the substitution operator s///, not the transliteration operator tr///. See perlop for details. I would suggest something like the following:

if( length($lRow) > 1000 ) {
  $lRow = substr($lRow, 0, 1000);
  $lRow =~ s/(?<=\.)[^.]*$//;
}
[download]