Another way to do it.

if ( length($lRow) > 1000 ) { $lRow =~ s/(.{1,999}\.).*/$1/ };
[download]

Note that this as well as most of the others assume there is at least one period in the string (else the matches will fail).

-enlil