while(<DATA>) {
    while(/\b$word\b/g) {
        print "The word repeated in Line $. and in column ",
            scalar(split /\s+/, $`)+1,"\n";
    }
}

##</code><code>##

Use of implicit split to @_ is deprecated

##</code><code>##

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

##</code><code>##

while(<DATA>) {
    my @arr = ();
    push @arr, scalar(my @s=split/\s+/,$`)+1 while /\b$word\b/g;
    print "The word repeated in Line $. and in column ",
        join("\t",@arr) ,"\n"
            if @arr;
}