Select Code to Download

sub find {
    my $self         = shift;
    my @terms        = @_;
    use re 'eval';
    $End_Of_String = 0;

    my @regex_tokens =
      map {
...
            qr/\Q$string\E/;
        }
      } @terms;

    my $re       = '(' . join( ')|(', @regex_tokens ) . ')';
    my $compiled = qr/$re/s;

    while (1) {
        my @matches = $self->{buffer} =~ $compiled;
...
        }
    }
}