#!perl

use strict;
use warnings;

my $data = <DATA>;
chomp $data;

my @f = ($data =~ m!((\w+),+)+!g);
print join("\t", @f) . "\n";

__DATA__
qwerty,asd,zxcvbnm,fgh,jkl,uiop,