#!/usr/bin/perl

open DICT, "/usr/share/dict/words" or die "Kann words nicht öffnen: $!\n";
while ()
{
	$first = $1 if ?(^neur.*)?;
	$last = $1 if /(^neur.*)/;
}
print $first, "\n";
print $last, "\n";