while (<DATA>) {
    chomp;
    my $line = $.;
    warn "Pre match: Line $. == $line\n";
    next if /match/;
    {
      local $.;
      seeky();
    }
    warn "Postmatch: Line $. != $line\n";
}