Re^3: Simple Perl If Else Statement

Ummmm, like this?

while (@a = split /\t|$/, <DATA>){
    next if $a[0] =~ /\D/;
    print "K: $a[0]\n" and next if $a[1] == $a[2];
    print "K: -$a[0]\n" and next if $a[1] == $a[3];
    print "author didn't specify that option\n";
}


__DATA__
K    I    B    S
1    2    2    3
2    4    3    4
3    5    5    2
4    9    1    3
[download]

Comment on Re^3: Simple Perl If Else Statement Download Code