SYNOPSIS

use Catmandu::Fix::Inline::marc_remove qw(:all);
my $data = marc_remove($data,'CAT');