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

    use Tie::DATA sub{split(/\s*:SEGMENT\s+(\w+)\s*/, shift);}

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