while (<DATA>)
{
 next if /^\s+$/;
 my (undef,$pos,undef) = split;
 print "$pos\n";
}
__END__
BC001593 91 NPSL
BC001593 262 NASS
BC001593 293 NAST