Select Code to Download

while(<DATA>) {
    while(/\b$word\b/g) {
...
            scalar(split /\s+/, $`)+1,"\n";
    }
}

Use of implicit split to @_ is deprecated

    scalar(my @s = split /\s+/, $`)+1

while(<DATA>) {
    my @arr = ();
...
        join("\t",@arr) ,"\n"
            if @arr;
}