The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
marc_map('001', 'my.id')
marc_map('245a', 'my.title')
marc_map('666', 'my.references.$append')

marc_map('001/3-5', 'my.substr_id')
marc_map('001/1003-1005', 'my.failed_substr_id')

marc_map('245', 'my.split_title', split:1)

add_field('my.found005',0)

if marc_match('005','20000613133448.0')
	set_field('my.found005',1)
end

add_field('my.found008','0')

if marc_match('008_/6-7','s')
	set_field('my.found008','1')
end

marc_map('050ba','my.pluck', pluck:1)

marc_map('245','my.has_title', value:'Y')

marc_xml('record');

#remove_field('record')