# $type ist hier für die Integerwerte INT49, somit kommt "N" für die Funktion unpack in Frage.
# $data ist der Wert der hinter dem Typ im obigen Textfile steht, allerdings sieht er in der Ausgabe etwas anders aus, für die Integer z.B. so:  \x01
if ($type eq 'STRING') {
        $res = unpack('a*',$data);
    } 
    elsif ($type =~ /^INT(\d*)$/) {
        my $ustr;
        if ($1 == 1) {
            $ustr = 'C';
        } 
        elsif ($1 == 2) {
            $ustr = 'n';
        }
        else {
            $ustr = 'N';
        }
        $res = unpack($ustr,$data);