Regular Expression Perl

while(){
    print if / \w\w\w\w \d/
}
__DATA__
    Tom 101
    Jack 201
    Jason 301