my $foo = 'ein maennlein steht im walde ...';
print( $foo =~ /^ein (.+?) / );
print "\n";