perl -ne 'chomp;split /\s+/,$_;print $_[1],"\n";while($_[1] =~ /([A-Z][a-z]?(\d*))/g){print "\t",$1,"\t",$2,"\n";}'