Help for this page
#!/usr/bin/perl -w use strict; ... if (length ==5 or length==6) {print FH2 }; }
while (<DATA>) { ... prints: 12345 123456