($num) = $num =~ /2(0\d)/;

##</code><code>##

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

##</code><code>##

(...) = map sprintf('%02d', $_), ...