use strict;
use warnings;

use Data::Dump;


{
    my %state;

    sub till {
        my @phases=@_;
        #dd \@_;
        my ($file,$line)= (caller)[1..2];
        my $state = \$state{$file,$line};
        $$state //= 0;
        $phases[1+$$state]->();
        if ($phases[$$state]) {
            $$state += 2;
            $$state %= @phases;
        }
    }
}


while (my $var = <DATA>){
    till (
        - ($var =~ /for/)   => sub { print "*: $var" },
        - ($var =~ /their/) => sub { print "1: $var" },
        - ($var =~ /fruit/) => sub { print "2: $var" },
        - ($var =~ /lazy/)  => sub { print "3: $var" },
       );
}

__DATA__
now is the time
for all good men to
come to the aid of
their party.
Time flies like an arrow
fruit flies like a  banana.
The quick red fox
jumps over the lazy
brown dog.
Etaoinshrdlu.

##</code><code>##

*: now is the time
*: for all good men to
1: come to the aid of
1: their party.
2: Time flies like an arrow
2: fruit flies like a  banana.
3: The quick red fox
3: jumps over the lazy
*: brown dog.
*: Etaoinshrdlu.