In your program you posted above, where did you use pos?

Also, the pos function does not do what you might think what it does.

You're right, using pos is only giving me the previous line number if I feed it $. Not sure how I would go about placing data to that line number. Any suggestions on a better route to take?

#!/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);
[download]

produces: Line #, Data, Previous Line #