Select Code to Download

my %allowed = ( u => 1, i => 1, b => 1);
my $text = "";
...
        $text .= $token->as_is;
    }
}

my @match = grep /$lookup/, split /\n/, $text;
print "$_\n" foreach @match;