in reply to anyway to combine these two steps?
($num) = $num =~ m#20(\d)#; ($num) = sprintf( "%02d", $num ); [download]