use strict;
use warnings;

open(MOTIFS, "all_motifs.txt") or die("Unable to open file");

# Read the first 7 lines of metadata.
# # Assuming there are always 7 lines of metadata.
foreach (1..121)
  {
  foreach (1..7)
     {
     # Read a line of data.
     my $header_data = <MOTIFS>;

     # Remove the end of line character.
     chomp $header_data;

     # Split the string into 2 parts, using white space as a separator.
     my ($lable, $string) = split /\s+/, $header_data, 2;

     # only pay attention to the "Motif" line.
     next if ($lable ne 'Motif');
     print "$string ";
     }