Help!

Fair warning: Though I've found Perl to be extremely useful and not an inconsiderable amount of fun, I am still somewhat new to the language.

I'm trying to use unpack() to convert packed binary data into ASCII. I'm using the program below, but the output is identical to the input! I seem to be missing some basic theory about what packed data is..

Is the Perl unpack() function not based on the same concepts that packed data fields employ? I wish I could be more lucid, but I'm pretty much at a loss for what to do..

Here's the code: (the field I'm trying to unpack is supposed to be a sequence number on a fixed-length record.)

$description = "Unpacks packed data.";

($ARGV[1]eq"")?&usage:nop; #ensure the proper number of parameters

$ifn=$ARGV[0];$ofn=$ARGV[1];
open IFN, "$ifn" or die "Can't open $ifn:$!\n";
open OFN, ">$ofn" or die "Can't open $ofn:$!\n";

print "$0:$ifn->$ofn..\n";
binmode(IFN);
while(<IFN>){
($.%1000)?nop:print "\rRecords processed:$.";
$seq = substr($_,1,7);
######################################################
$seqout = unpack("A14", $seq);  #<--Here's the problem
######################################################
print OFN "Input[$.]: >>$seq<<\n";
print OFN "Output[$.]: >>$seqout<<\n\n";

};

print "\rRecords processed:$.\n";
print "Done.\n";

exit;

##############NORMAL TERMINATION HERE##############
sub usage{
   print "$0\n\n";
   print "$description\n\n";
   ($fn) = ($0 =~/(.*)\.(.*)/);
   print "USAGE: perl $fn <inputfile> <outputfile>\n\n";
   exit;
};
[download]

Some sample output:

Input[1]: >>      <<
Output[1]: >>     <<

Input[2]: >>    i? <<
Output[2]: >>    i?<<

Input[3]: >>     <<
Output[3]: >>    <<
[download]

My final question: How do I take this input and extract the information from it?

-- "The snark was a boojum, you see.."