Select Code to Download

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

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

 if($type eq '131') {

 if($type == 131) {