Hers' a sample implementation

my @line_offsets;
push @line_offsets, tell *FOO;
while (my $line = <FOO>) {
    push @line_offsets, tell *FOO;

    if ( foobar() ) {
        seek *FOO, $line_offsets[29];
    }
}
[download]