my $line= 'abc ... {abc} ... abc'; my @terms= $line =~ /\{(.*?)\}/g; for my $bracketed (@terms) { print "$bracketed matches $1" if ($bracketed =~ /(abc|nop)/); };