Bioperl data converter

## http://www.forum-invaders.com.br/vb/showthread.php/40861-HELP-Mudando-formatos

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

my $work = 0;
my $count = 0;
foreach my $line(<DATA>){
    chop($line);
    if($work == 1){
        $line =~ /(.+),\s+(.+)$/;

        if($1 eq "Gra"){
            $work = 0;
        }

        my @items = split(/\s/, $2);
        @_ = ([],[]);

        foreach (@items){
            /(\d{2})(\d{2})/;
            push(@{$_[0]}, int($1));
            push(@{$_[1]}, int($2));
        }

        $count++;
        print "#$count\n";
        print join(" ", @{$_[0]}), "\n";
        print join(" ", @{$_[1]}), "\n";
    }
    if($line eq "Pop"){
        $work = 1;
    }
}

__DATA__
Pop
001,    0303 0303 0101 1011 0304
002,    0303 0003 0101 0410 0405
003,    0303 0305 0101 1013 0304
004,    0103 0304 0102 0207 0104
Gra,    0203 0304 0202 0207 0105