%hash = (
  a => (($b =~ /(?<tag>\d+)/) ? $+{tag} : 0),
  b => (($b =~ /(?<tag>test)/) ? $+{tag} : 0),
);
print "$_=#$hash{$_}#\n" for keys %hash;