Select Code to Download

    use Tie::DATA;

...
    __baz__
    
    woof woof

    use Tie::DATA(':xml'); # predefined format

...
    <baz>
        woof woof
    </baz>

    use Tie::DATA ( 
        sub{ ... },  # parse key/values from DATA 
...
    __DATA__

    ...

    [foo]
    baz bar etc

    <foo>baz bar etc</foo>

    #define foo
    baz bar etc

    <![foo[
        baz bar etc
    ]]>

    use Tie::DATA qr(<<<<<<<<(\w*?)>>>>>>>>);

...
    use Tie::DATA \&Some::Mad::Parser::parse;

    use Tie::DATA(':ini', 'proc_kv');

...

    [baz]
    woof woof

    use My::Big::Routine;
    use Tie::DATA(':ini', 'My::Big::Routine::go');
...
    {
        print "$_ = $DATA{$_}\n";
    }