$num = $num =~ /2(0\d)/ ? $1 : undef;