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");