#!/usr/bin/perl
use strict;
use warnings;

$/ = "Query=";

my $count = 0;

while (<DATA>) {
   
    chomp;
    s/^\s+//;
    my @record = split(/[:\n]/, $_);
    $count++;
    print join(' : ', @record), "<count=$count>\n";
}


__DATA__
Query=        M01133:26:000000000-A6UCG:1:1101:22656:1128
1:N:0:1+@M01133:26:000000000-A6UCG:1:1101:22656:1128 2:N:0:1

Length=501
Query=    M01133:26:000000000-A6UCG:1:1101:22656:1129
1:N:0:1+@M01133:26:000000000-A6UCG:1:1101:22656:1129 2:N:0:1

Length=501
Query= M01133:26:000000000-A6UCG:1:1101:22656:1130
1:N:0:1+@M01133:26:000000000-A6UCG:1:1101:22656:1130 2:N:0:1

Length=501
Query= M01133:26:000000000-A6UCG:1:1101:22656:1131
1:N:0:1+@M01133:26:000000000-A6UCG:1:1101:22656:1131 2:N:0:1

Length=501

##</code><code>##

<count=1>
M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1128 : 1 : N : 0 : 1+@M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1128 2 : N : 0 : 1 :  : Length=501<count=2>
M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1129 : 1 : N : 0 : 1+@M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1129 2 : N : 0 : 1 :  : Length=501<count=3>
M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1130 : 1 : N : 0 : 1+@M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1130 2 : N : 0 : 1 :  : Length=501<count=4>
M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1131 : 1 : N : 0 : 1+@M01133 : 26 : 000000000-A6UCG : 1 : 1101 : 22656 : 1131 2 : N : 0 : 1 :  : Length=501<count=5>