%Hidlabels = (3333=>1, 4444=>2, 2222=>3); $formula =~ s{ (\d+) } { defined $Hidlabels{$1} ? $Hidlabels{$1} : $1 }xeg if $formula =~ /^f/;