question about perl 5.6

[Paul Johnston]

Question
I wish to generalise the scheme below:
      
      s/&#100/pack("U",100)/eg;
      s/&#101/pack("U",101)/eg;
      s/&#102/pack("U",102)/eg;
      
i.e. take a web page with unicode character codes i.e. arabic and create a file 
with the actual unicode characters.
So I think it should be like:

 s/&#([0-9]*)/pack("U",\1)/eg;

However this does not work, something to do with when the parentheses are passed 
to \1 and this is evaluate I think?

Any ideas, please note not all versions of perl support pack("U",value)


Paul Johnston
Unix System Admin
Language Engineering
UMIST
Tel 0161 200 3089
Fax 0161 200 3099

--
   You are currently subscribed to manchester-pm-list.  To unsubscribe, send the following message to majordomo at happyfunball.pm.org:
  unsubscribe manchester-pm-list