weather.perl split date with ','