my $p;
while(<FILE>){
   #du stuff
   if( prevous line needed and defined $p ){
      seek FILE, -(length()+$p), 1;
      my $prevous_line = <FILE>;
      # next <FILE> will return the current line again,
      # so call it again before going on!
  }
} continue { $p = length() }