$_ = <STDIN>;
s/.*(some_string).*/$1/;