print("LA-1-00 LA-2-01 LA-03-2\n");

##</code><code>##

open(FILE, "< $filename")
or die("Can't open input file: $!\n");
my $text = do { local $/; <FILE> };
close(FILE);

print(join(' ', grep { /^LA-/ } split(/\s+/, $text)), "\n");

##</code><code>##

open(FILE, "< $filename")
or die("Can't open input file: $!\n");
my $text = do { local $/; <FILE> };
close(FILE);

my %seen;
print(join(' ', grep {
   if (/LA-(\d+)-(\d+)/) {
      my $key = "LA-" . ($1+0) . "-" . ($2+0);
      $seen{$key}++ ? 0 : 1;
   } else {
      0
   }
} split(/\s+/, $text)), "\n");