С perl без конвейера:
#!/usr/bin/env perl
use strict; use warnings;
my $c = -1; my $arr = [];
while (<>) {
if (/^chr/) {$c++};
chomp;
push(@{ $arr->[$c] }, $_);
}
foreach my $i (0...scalar(@{ $arr->[1] }) -1) {
printf("%-30s %s\n", $arr->[0]->[$i], $arr->[1]->[$i]);
}
chr10:127293562-127293909 chr11:49214073-49214804
BRUNOL4(Hs/Mm) BRUNOL4(Hs/Mm)
CPEB4(Hs/Mm) BRUNOL5(Hs/Mm)
CUG-BP(Hs/Mm) CPEB2(Hs/Mm)
DAZAP1(Hs/Mm) CPEB4(Hs/Mm)
ENOX1(Hs/Mm) CUG-BP(Hs/Mm)
FMR1(Hs/Mm) HNRNPC(Hs/Mm)