my $text = <<"END";
a sample line
item
duhduh
 foo
END

$text =~ /^item.*(^duhduh$)\s*foo$/sm;
print "\$1: '$1'\n"; # prints "$1: 'duhduh'"