in reply to Re: Get middle word
in thread Get middle word

my ($result)= m{ FIXED (.*?) FIXED }x;

[download]
That fails on strings like "FIXEDfooFIXEDbarFIXED" without making any assumptions beyond the stated requirements. A greedy match seems right here.
-sauoq
"My two cents aren't worth a dime.";

In Section Seekers of Perl Wisdom