use 5.010;
"" =~ /(?<mon>\w+)\s(?<mon>\w+)/;
print scalar keys %-;                  # 0