#!/usr/bin/perl

use strict;

while (<DATA>) {
    print if ( /^name:\s\w+\s?\w+/ ... /^.*$/ );
}

__DATA__
name: John Doe
23
name: Jane Doe
37
test: asdas
name: Joe Doe
12