$/ = ""; #set to paragraph mode

while(<$file>){
	
    if ($_ =~ /$first_match/ && $_ =~ /$second_match/ && $_ =~ /$third_match/){
	
        print "$_\n";
		
		my ($needed_data_0) = (/^data_here(.+)/, $_);
		my ($needed_data_1) = (/^more_data(.+)/, $_);
		my ($needed_data_2) = (/^other_data(.+)/, $_);

				print "data0 is: $needed_data_0\n";
				print "data1 is: $needed_data_1\n";
				print "data2 is: $needed_data_2";
	
	}
}