s/.*(some_string).*/$1/s; s/.*(some_string).*\n/$1/; s/.*(some_string)[^\0]*/$1/; s/.*(some_string)(.|\n)*/$1/; chop; s/.*(some_string).*/$1/; /(some_string)/ && ($_ = $1);