($num) = $num =~ m#20(\d)#;
($num) = sprintf("%02d",$num);