Select Code to Download

while (<FILEHANDLE>) {
    $_ = substr $_, 0, $maxlength if length > $maxlength;
    # ...
}