>>186
調べる力も身に付けようね。

my %got;
foreach (split /^/, $txt) {
  print unless $got{$_}++;
}