my ($am) = ($_[0] =~ /$mask/); my ($bm) = ($_[1] =~ /$mask/);