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