#!/usr/bin/perl

open DATA, "</home/file.conf";

while (<DATA>) {
if(m/\END\b/) {
print "$.\n";
}
}
close(DATA);