Select Code to Download

#!/usr/bin/env perl

...
sub meta_wanted {
    $_[0]->{type} eq 'SPORT' || $_[0]->{type} eq 'DATE'
}

$VAR1 = [
          {
...
            'type' => 'DATE'
          }
        ];