my $formula = 'C6H5OH';
$formula =~ s/H\d//g;
print "$formula\n";