Regexp to match by hash key and replace with hash value?

[chris]

Can I do the following with a single replace?

my %hash = ("1","abc", "2","xyz");
my $line = '12';
while( my($key, $val) = each(%hash) ) {
$line =~ s/$key/$val/g;
} 
print $line . "\n";


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]