Regular Expression Perl

while(){
   print if /[A-Za-z0-9_]/;
}
__DATA__
    Tom 101
    Jack 201
    Nart 301