Select Code to Download

my @test_data = (
    ['none', 'The quick brown '],
...
    ['bold', 'dog'], 
    ['none', '.']
);

my %handlers = (
    'none' => sub {shift},
...

    return $handlers{'para'}->($text);
}

sub wrap_with_html
{
...
    'ital' => \&wrap_with_html('i',
    'para' => \&wrap_with_html('p',
);

sub curry
{
...
my $plus_five = &curry(\&foo, 5);

&$plus_five(3);

sub curry
{
...
);

print &build_para(\@test_data);