use strict;
use warnings;
my $template  = "A17A6A31A3A3A*";
while (my $line = <DATA>) {
    print join("\t", unpack($template, $line)); 
}
__DATA__
2013020400000000006810083610022013068100200220130688000200494;