#!/afs/athena/contrib/perl5/perl

$/ = "Auth: ";
$pat = shift(@ARGV);

while(<>){
	next unless /$pat/i;
	s/Auth: //g;
	$_ = "Auth: ".$_;
	print;
	print "-------------------------\n";
}