#! perl -nlw
# for zfpbox weather
if(/^\s*\d{3,4}\s+[ap]m .+ \d{1,2}\s+\d{4,}$/i){
#avoid Y10k problem
print;
last;
}