open (DB, "<$data_file"); while () { next if m!www.yourserver.com/your/referer/here!; $row = $_; chop $row; @fields = split (/\|/, $row); print "$fields[0]"; } close (DB);