#! /usr/bin/perl
use strict;
use warnings;

my $string = "an apple in the fridge";
my $match = q();
length $1 > length $match and $match = $1
    while $string =~ /(?=(apple in the fridge|an apple))/g;
print "$match\n";