my @vars = split( /\|/, $line );
        if (@vars > 7) {
             my $type = substr( $vars[7], 0, 3);
             # do something
        }