Select Code to Download

use strict;
use warnings;
...

  $found = '';
}

my $tag;

...
  if($tag eq 'AU'){ print "\n".$_; }
  if($tag eq 'BD'){ print  ','.$_; }
}