http://www.perlmonks.org?node_id=645654


in reply to match last element instead of first??

Just as you ask, split the line. (assuming the separator is fixed).
$ perl -le '$line = shift; @fish = split /\s*fish\s*/, $line; print fo +r @fish' 'One fish two fish red fish blue fish' One two red blue
You may compare between regex and split solutions, if you like.

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!