if (@tree =~ /falls/  and  $no_one =! /hears/){
        $_ =~ /a sound?/;
};