Select Code to Download

#!/usr/bin/perl -w
use strict;
...
     if (length ==5 or length==6)
       {print FH2 };
}

while (<DATA>)
{
...
prints:
12345
123456