Hmm, how about: perl -n -we "print if s/Twist 1// .. s/Twist 2// && ! /Twist \d/" text.txt Untested, as I'm still sure what your data set is.