print < DEEEalers

Dealers Listing

OUT open (NAMES, "/var/www/cgi-bin/data/dealers.txt"); while () { next if !m/^B/; chomp; print "\n"; } close (NAMES); print < OUT
surnamegivensuburbpostcode
", join ("", (split /[,\s]+/, $_)[0..3]), "