conf/normalize/foo.pl

marc('777','v',
        lookup(
                sub { '1st-1' . rec('000') },
                'foo','foo-input1',
                sub { rec('11') }
        ) ||
        lookup(
                sub { '1st-2' . rec('000') },
                'foo','foo-input2',
                sub { rec('11') }
        ) ||
        lookup(
                sub { '2nd-1:' . rec('000') },
                'bar','bar-input',
                sub { rec(210,'a') . rec('210','e') },
        ) ||
        lookup(
                sub { '2nd-2:' . rec('000') },
                'bar','bar-input',
                sub { rec(220,'a') . rec('220','e') },
        ) ||
        lookup(
                sub { '2nd-3:' . rec('000') },
                'bar','bar-input',
                sub { rec(230,'a') . rec('230','e') },
        ) ||
        lookup(
                sub { "3rd:" . rec('000') },
                'baz','baz-input',
                sub { rec(200,'a') },
                sub { rec(900,'x') },
        )
);

1	dpavlin	686	marc('777','v',
2			lookup(
3	dpavlin	690	sub { '1st-1' . rec('000') },
4			'foo','foo-input1',
5	dpavlin	686	sub { rec('11') }
6			) \|\|
7			lookup(
8	dpavlin	690	sub { '1st-2' . rec('000') },
9			'foo','foo-input2',
10			sub { rec('11') }
11			) \|\|
12			lookup(
13	dpavlin	704	sub { '2nd-1:' . rec('000') },
14	dpavlin	689	'bar','bar-input',
15	dpavlin	704	sub { rec(210,'a') . rec('210','e') },
16	dpavlin	686	) \|\|
17			lookup(
18	dpavlin	704	sub { '2nd-2:' . rec('000') },
19			'bar','bar-input',
20			sub { rec(220,'a') . rec('220','e') },
21			) \|\|
22			lookup(
23			sub { '2nd-3:' . rec('000') },
24			'bar','bar-input',
25			sub { rec(230,'a') . rec('230','e') },
26			) \|\|
27			lookup(
28	dpavlin	686	sub { "3rd:" . rec('000') },
29	dpavlin	689	'baz','baz-input',
30	dpavlin	686	sub { rec(200,'a') },
31			sub { rec(900,'x') },
32			)
33			);
34