regex - パターン内の前の単語を取得する

Question

Perl の文字列から前の単語を取得するシナリオがあります。例えば

$str = "there are lot of apples <xref id=1> and " .
       "a lot of oranges <xref id=2> as blah blah";

それぞれの前に前の単語 (上記の「りんご」と「オレンジ」) を取得する必要があります<xref(.*?)>