cat zips.html | perl -ne 's/(\d{5,})//g; print "$1," if $1'