Select Code to Download

How do you guys pick names in the Netherlands -- 
throw a box of poetry magnets in the air and see what 
sticks to the light fixtures?

while (<DATA>){
$name = everything up to the first space.
...
  print "can't parse this one into a name: $_"
}
}

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;