my %replace = ('111'=>bar, '222'=>world, '333'=>perl);
my $find = join "|", sort keys %replace;
my $str = "f111,f222,f333";
$str =~ s/f([0-9]+)/$replace{$1}/g;
print "$str\n";           

##</code><code>##

bar,world,perl