[Israel.pm] regex substitue with lookup table

[Yossi.Itzkovich at ecitele.com]

Hi,

I have a code that looks like this:

if (/someText (.+?) someMoreText (\d+)/)
{
      if (exists $hash{$2})
      {
            my $newStr=$hash{$2};
            s/someText $newStr someMoreText/;
      }
}

I know There Is Another Way To Do It, and even a shorter one - how ?

Thanks

Yossi