use strict;
use warnings;

#
# slurp file
#
my $file_contents = "";
{
	local $/;
	$file_contents = <DATA>;
}

#
# "parse" file
#
while ($file_contents =~ m/\((.*?)\)/sg) {
	my $match = $1; $match =~ s/\n//g;
	print "[$match]\n";
}
	


__DATA__
prematch (match) postmatch
adsf (madfa
tch) asdf