#####################################################################################
sub NibbleItOff {
    my $Field_Length = shift;
    my $Output_String;

#print "NibbleItOff>>inrec->$inrec<\n"; print "NibbleItOff>>Field_Length->$Field_Length<\n";
    $Output_String = substr( $inrec, 0, $Field_Length );
    $inrec         = substr( $inrec, $Field_Length );

#print "NibbleItOff>>inrec->$inrec<\n"; print "NibbleItOff>>Output_String->$Output_String<\n";
    return $Output_String;
}
#####################################################################################