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