#!/usr/bin/perl

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

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