Select Code to Download

while(<IFILE>) {
   if ((@LINE =~ /#\s+(\w+)\s+(\d+).+/) && (@LINE =~ /!\s+(\w+)\s+(\d+
+).+/)) {
...
      print "X $Word X $TimeStamp X $Word2 X $TimeStamp2 x";
   }
}

# add 1362072030 dc=ifdsgroup,dc=com
dn: uid=nce9834xdho,ou=user,ou=nce,ou=prod 
...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# end add 1362072030

undef $/;
$/="\n\n";
...
      print "\n";
   }
}

undef $/;
$/="\n\n";
...
      print "\n";
   }
}