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

while(<>)
{
    #HWI-EAS121_2:6:1:951:346:GAGGAAGAAGGAATATTTATCGTATGCCGTCTT:40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 30 40 40 40 40 40 40 40

    my @a=split /:/,$_;
    print "$a[1]\t$a[2]\t$a[3]\t$a[4]\t$a[5]\n"; 
}