Select Code to Download

use strict;
use warnings;
...
     next if ($lable ne 'Motif');
     print "$string ";
     }

  # Process the next lines of data until line containing string "TF   
+   Unknown" is reached.
foreach (<MOTIFS>)
...
   }
# print an end of line character.
print "\n";

TF      Unknown
...
TF      Unknown
TF Name Unknown
Gene    ENSG00000113916