foreach my $constant (keys %constants) {
	$string = join $constants{$constant}, split /$constant/, $string;
}