Select Code to Download

#!/usr/bin/perl

...
  print unless exists $hash{  }
}
exit(0);

PORNUM: PP22x43@.5
PORNUM: PC12x120/25

random lines of data
PORNUM: PC21x21!2
...

random lines of data
PORNUM: PC12x120/25