oldengremlin · July 12, 2019 13:52
diff --git a/begin b/begin
 #!/usr/bin/perl

 $ARGV[0]="." if $#ARGV==-1;
 my $string = $ARGV[0]; my $notfound = 1;
 while (<STDIN>) { if ($notfound) { $notfound=0 if /$string/; next if $notfound; } print $_; }
	#!/usr/bin/perl

	$ARGV[0]="." if $#ARGV==-1;
	my $string = $ARGV[0]; my $notfound = 1;
	while (<STDIN>) { if ($notfound) { $notfound=0 if /$string/; next if $notfound; } print $_; }