if (/^\s*(\w+)(.*)/) {
   my ($word, $definition) = ($1, $2);
   ...
}