my $supertext = undef;
$i = 0;

open(TEXT, "/home/nikster/supertext") || die "Unable to read from supertext : $!";
while(<TEXT>)
{
 if ($_ =~ m/^hallo/ig) {
  $i += 1;
#print "$i\n";
$text[$i] = $_;
}
}
close (TEXT);