s/([AB])/ ( ord($1)-ord('A')+1 )*1000 /eg;