1415671 : 
GGAACAGGAATGTCGCAACATCGTA, 
ACATCGTATGGATTGCTGAGTGCAT, 
GGCTGATCACATCCAAAAAGTCATG

##</code><code>##

1415670 : 
GAGGAAACGTTCACCCTGTCTACTA, 
GTTCACCCTGTCTACTATCAAGACA, 
TACTATCAAGACACTCGAAGAGGCT, 
CTGTGGGCAATATTGTGAAGTTCCT, 
GAATGCATCCTTGTGAGAGGTCAGA, 
GAGAGGTCAGACAAAGTGCCAGAAA, 
AAAACAAGAACACCCACACGCTGCT, 
ACACGCTGCTGCTAGCTGGAGTATT, 
TATCTTGTCCAACACTACGTCGAAG, 
TTGTCACCATGCCTGCAAGGAGAGA

##</code><code>##

do {
      # extract the target name
    $target_name = $1 if m[( \d{7} ) _at: \d{3} : \d{3} ]x;

    while( m[$target_name] ) {
     # process the record containing the current target name
        my $probe = <DATA>; # Read the probe
        chomp $probe;

            # save it in an HoA keyed by the target name
        push @{ $probes{ $target_name } }, $probe;

        # get the next line;
        last unless defined( $_ = <DATA> ); 
    }
} until eof DATA; # till done