#! /usr/bin/perl -w
use strict;
my %replace = ('111'=>"bar", '222'=>"world", '333'=>"perl");
my $str = "f111,f222,f333";
$str =~ s/f([0-9]+)/$replace{$1}/g;
print "$str\n";