Select Code to Download

my $word="test";
while(<DATA>) {
...
The word repeated in Line 4 and in column 1
The word repeated in Line 4 and in column 5
The word repeated in Line 4 and in column 7