$num =~ s/.*?20(\d).*/0$1/gs