if ( $string[0] =~ /xml/ ) {
    foreach $string (@string) {
        
	if ( $string =~ m/<say>/ ) {
	    $say = $string;
	}
	
	if ( $string =~ m/(<val val1="$val1")/ ) {
		$say =~ s/\s<say>//;
		$say =~ s/<\/say>//;
		print $say . "\n";
		$found = 1;
	}

	if ( $string =~ m/<\/monk>/ ) {
	$say = "";
	}
    }
}