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