chomp ($yr,$mm,$dd,$yyyymmdd);