while ($line = <FB>) {
    chomp($line);
    @array = split /\s*\|/, $line;

    if ( $array[10] =~ /Scan/ ) {
        # happiness ensues
    }