#!/usr/bin/perl
#
# Some Unix's grep(1) chokes on ^@. Perl doesn't.
#
# Further, ksh puts ^@ in its history files, which I grep a lot.
#
# XXX fancy grep flags

exit 1 if (-z $ARGV[0]);

my @files;

if ($#ARGV < 1) {
	@files = qw(-);
} else {
	@files = @ARGV[1..$#ARGV];
}

foreach my $file (@files) {
	open SOURCE, "<$file";
	while (<SOURCE>) {
		if (m/$ARGV[0]/) {
			print "$file:" if ($#ARGV > 1);
			print $_
		}
	}
}