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

##</code><code>##

__DATA__
CH4N2O
C9H12N2O6
C5H11NO2
C5H4N4O2
C10H11N4O9P
C10H12N4O6
C5H10O5
C5H12O5
C5H10O5
C27H44O
C1694H2993O101