$str =~s/.*(John).*/$1/;