while ($mask !~ /^\d\d$/)
{
}