open (OUTPUT, ">Results.txt") 

open( INFILE, "Textfile.TXT" )
while (<INFILE>) {
if ($ARG =~ /(Something.{0,250})/ ) {
print OUTPUT $ARG ;
}
}

close (OUTPUT);