How can I remove the text before and after a particular character?

Question

I have been trying to remove the text before and after a particular character in each line of a text. It would be very hard to do manually since it contain 5000 lines and I need to remove text before that keyword in each line. Any software that could do it, would be great or any Perl scripts that could run on Windows. I run Perl scripts in ActivePerl, so scripts that could do this and run on ActivePerl would be helpful.

Thanks

Answer 1

I'd use this:

$text =~ s/ .*? (keyword) .* /$1/gx;