my $PipeCounter=0; # how many?
	my $Lookfor="|";
	while(<DATA>) {
		$PipeCounter = () = $_ =~ /\Q$Lookfor/g;
	}
	print "Found $PipeCounter '$Lookfor'\n";