#!/usr/local/bin/perl
#use #!/usr/bin/perl usually

while (<>) {
   if (/_specialflag/ || /::_specialflag/) {
	print "$_";
   }
}
