Select Code to Download

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

__DATA__
CH4N2O
...
C5H10O5
C27H44O
C1694H2993O101