#!/usr/bin/perl
use strict;
use warnings;

my $such_name=$ARGV[0];
$such_name='root' unless($such_name);

# lese von STDIN
while(my $line=<STDIN>)
{
  # kopiere aus der Zeile die ersten Zeichen heraus
  # nimm noch ein Zeichen mehr um sicher zu stellen dass es der Name ist
  # und nicht der teil eines anderen der gleich anfängt.
  my $name=subtsr($line,0,length($such_name)+1);

  # wenn diese Zeichen gleich "$such_name " sind gib die Zeile aus
  print $line if($name eq $such_name.' ')
}