Help for this page
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/; }