#!/usr/bin/perl
use strict;

my $term = "\"foo\"[MH] OR \"bar\"[MH]";
my @matches = $term =~ /(\"(.+)?\"\[MH\])/ ;

print $_,"\n" foreach (@matches);