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