Select Code to Download

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