my ( $var1, $var2, $var3, $var4, $var5, $var6, $var7, $var8, $var9, $var10, $var11, $var12, $var13 ) = split( /\|/, $line );    #variables are separated by commas.
        my $type = substr( $var8, 0, 3 );


##</code><code>##

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

##</code><code>##

 if($type eq '131') {

##</code><code>##

 if($type == 131) {