Patternmatch + brug indhold

Hvordan laver jeg subrutinen, der retunerer ananas,pære og banan?

$indeholderfrugt="abscdefghijkdsgaklfghasfjhsdfgjhasdhjasdkgjSTARTHERananasSLUTHERgvjkfjsdaklhjfdlhjasdfkhk";
&hentmellemstartogslut;
print "$frugt\n";

$indeholderfrugt="wqreewrewqklfghasfjhsdfgjhasdhjasdkgjSTARTHERpæreSLUTHERgvjkfjsdaqwerewqewasdfkhk";
&hentmellemstartogslut;
print "$frugt\n";

$indeholderfrugt="wqqwerqewrweqrwqedfgjhasdhjasdkgjSTARTHERbananSLUTHERgvjkfewqrewqrweqsdfkhk";
&hentmellemstartogslut;
print "$frugt\n";