Help for this page

Select Code to Download

Select or download this

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

Select or download this

#!/usr/bin/perl -W
#
...
            print $div;

}