#!/usr/bin/perl
use strict;

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

my $DESIRED_LINE_NUMBER;
my $LINE;

while (<DATA>)
{
        if(m/END/)
        {
                print "END line is on line >$.\n";
                print "END line is >$_\n";
                my $pos = $.;
                $pos--;
                chomp $pos;
                $DESIRED_LINE_NUMBER = $pos;

        }
}

print "Moving to line number $DESIRED_LINE_NUMBER\n";

$. = 0;
do { $LINE = <DATA>; print "Discarding: $LINE\n" } until $. == $DESIRED_LINE_NUMBER || eof;
print "Found desired line $DESIRED_LINE_NUMBER as '$LINE'\n";


__DATA__
foo
bar
baz
END
bloob
blargh
blubb
blubb2