Select Code to Download

while(my $line = <DATA>) {
  #grep 'DataDictionary'
...
*** *** G3>H>I<pciOFACViolation>DataDictionary
Thanne longen folk to goon on pilgrimages,
And palmeres for to seken straunge strondes,

while(<DATA>) {
  print "$1\n"
    if /^\S+\s+\S+\s+([^>]+).*<pciOFACViolation>.*DataDictionary/;
}