Help for this page

Select Code to Download


  1. or download this
    my %value_lkup = (
    A => '1000',
...

my $pat = '[' . join('', keys %value_lkup) . ']';
s/($pat)/$value_lkup{$1}/g;
  2. or download this
    s/([AB])/ ( ord($1)-ord('A')+1 )*1000 /eg;