Select Code to Download

my @all_keywords = (qw(one two three ));
my @mandatory_keywords = (qw(two three ));
...
three = 'name="O\'Hara"'
ONE="xyz\t"
END

my %statement = (
    one => 'xyz\t',
    two => 'a_34',
    three => q{name="O\'Hara"},
);

#!/usr/bin/perl -w
use strict;
...
three    -> <name="O\'Hara" two=a_34>
four     -> <'one' two>
five     -> <ah!>

q{one="two=xyz" two=abc}
#      ^embedded keyword pattern

q{one="xyz two=abc three= efg"}
#          ^missing quotes^