Select Code to Download

#!/usr/bin/perl
use strict;
...
my $x = 'FREIGHT – INTRASTATE';
print $fh $x, "\n";
print $fh pack('A20',$x), "\n";

###################################################################
# This subroutine pads 'txt' on the right to length 'len'.
...
   $len =~ s/^A//i;  # Remove 'A' that system "pack" function uses.
   return sprintf("%s%s",$txt, ' 'x(($len-length($txt))));
}