my $string = 'bulky axe';

my %map = ( 'a' => 2 , 'b' => 4 );
$string =~ s/$_/$map{ $_ }/g for keys %map;