Perlで文字列の切り出しをするには?

相変わらずAppleScript関連でperl調べ中。

"MondayThursdayFriday"という文字列の間、つまり"Thursday"を取り出したい場合は・・・

echo "MondayThursdayFriday" | perl -pe 'print if s/.*(.*).*/$1/g'

ふむふむ