Re: help required for regexp

[tobyink]

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