smujohnson · October 19, 2012 01:32
diff --git a/gistfile1.txt b/gistfile1.txt
 #!/usr/bin/perl

 use strict;
 use warnings;

 use 5.010;

 my $delim = ":";
 my $field = 4;
 my $grep_string = "something";

 while (<STDIN>) {
  my @chunks = split(/\Q$delim/);
  next if @chunks < $field + 1;
  if (index($chunks[$field], $grep_string) != -1) { print }
 }
	#!/usr/bin/perl

	use strict;
	use warnings;

	use 5.010;

	my $delim = ":";
	my $field = 4;
	my $grep_string = "something";

	while (<STDIN>) {
	my @chunks = split(/\Q$delim/);
	next if @chunks < $field + 1;
	if (index($chunks[$field], $grep_string) != -1) { print }
	}