if ( $line =~ /FOUND/ ) {
        ($loc, $vir) = ( split( / /, $line ) )[0, 1];
    }