my $adfile = 'banners.dat'; open(FILE, $adfile) || die "Can't open $adfile"; print "Content-type: text/html\n\n"; ## this line is the idiom that might save you some sweat: while ($line = ) { chop $line; my @part = split(/\|/,$line); print "\n"; }