Select Code to Download

my $str = "f3333_4444_2222";
my %Hidlabels = ( 3333=>1, 4444=>2, 2222=>3 );
$str =~ s/(\d+)/$Hidlabels{$1}/g;