It has been a while since I have done any perl.
I simple want to search a line of text in a file, e.g.
REG-NZL-PUB.1981-263 ##1981## 19810922
and, in finding the 4 digit number in hashes above see if it matches the four digit number directly to the right. If it does match then delete the line.
In this case the line would be deleted because 1981 exists twice.
Can anybody help.