my ($DICT, $first, $last);
open $DICT, "<", "/usr/share/dict/words";
while (<$DICT>) {
#FIXME
    $first = $1 if ?(^neuro.*)?;  #  <- syntax error here 
    $last = $1 if  /(^neuro.*)/;
}
close $DICT;
print "first : $first, last : $last \n";
print "-" x 10, "\n";
#