Select Code to Download

my @tokens = get_tokens $string;

...
}

my $list = parse_list @tokens;

my @tokens = get_tokens $string;

...
}

my $list = parse_list;

my @tokens = get_tokens $string;

...

my $list = parse_list();
die( "Unexpected `$tokens[0]`" ) if @tokens;

my @tokens = get_tokens $string;

...

my $list = parse_list();
die( "Unexpected `$tokens[0]`" ) if @tokens;