use strict; use warnings; open (my $out, ">", "Results.txt") or die ("Could not open file Results.txt; $!"); open (my $in, "<", "Textfile.txt") or die ("Can not open input file: $!"); local $/; while (<$in>) { if (/(web site.{250})/i) { print $out $1; } }