Help for this page
($num) = $num =~ /2(0\d)/;
$num = $num =~ /2(0\d)/ ? $1 : undef;
(...) = map sprintf('%02d', $_), ...