Select Code to Download

my $temp  = substr($_, 0,  56) . $sp x 26;
   $temp .= substr($_, 57, 14) if length >= 57;
$RECORD[$det_line] = $sp x 4 . ltrim($temp);