Print a file until a regular expression is matched.

cat file.txt | perl -pe "exit if(/Thats all/)"