warn "Hey, scare's over now, you can go back to 2 digits"
      if $num =~ /^20\d\d\z/;