$sentence = "happy JJ
             Boy NN
             kick VB
             jump VB";

##</code><code>##

if ($sentence =~ /(Boy\sNN)(.|\n}*(\w+\s\VB)/) {
    $node = $1.' '.$3;
    print $node;
}