How about

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

Sorry, but I don't see the pattern between your input and output. Did you mean to print out all those starting with LA-? If so, you missed LA-03-02. The following prints all the tokens starting with LA-

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");
[download]

Update: Maybe LA-03-2 and LA-03-02 are considered duplicates, and you're trying to remove duplicates? If so, the following code should help:

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");
[download]

Thank you for the help. I want to print out the first value that start with "LA-" for each record. In my example file there are 3 records and each record has 1 or 2 or more values. In my real file there Hundreds records.

use strict;
use warnings;

my $found_match = 0;

while (<DATA>) {
   s/\s+$//;

   if (/^\d/) {
      $found_match = 0;
   }

   if (!$found_match && /^\d*\s+(LA.*)/) {
      print("$1\n");
      $found_match = 1;
   }
}

__DATA__
1  LA-1-00
2  CON-1-0
   LA-2-01
3  LA-03-2
   LA-03-02
[download]

perl -n -e "@_ = $_ =~ m/(LA-\d+-\d+)/g; print qq(@_\n)" file
[download]

use strict;
my %seen;
while(<DATA>){
    chomp;
    my @parts = split /-/;
    print $_,"\n" if $parts[0] eq 'LA' && !$seen{$parts[0]-$parts[1]}+
++;
}

__DATA__
LA-1-00
CON-1-0
LA-2-01
LA-03-2
LA-03-02
[download]

I am sorry for the miss leading the data I used. Let me try it again:
The data file is:
Record1: CON-aaa
-----------LA-bbbbb
-----------LA-aaaaa
Record2: LA-12345
-----------LA-1ad1d
...
I want to output the first data with "LA" in record 1, record2 and so on. The result should be like:
LA-bbbbb
LA-12345
There is no need to check if the rest of the value after the "LA-".

Thank you again!!

Sorry for the cofusions and thanks for the help. I am new here I was not sure how to use the format yet. I am tring to output the first value with "LA" of each record.
The data file should be:
Record1: LA-1-00
Record2: CON-1-0
------------LA-2-01
Record3: LA-03-2
------------LA-03-02


I need the output like:
LA-1-00
LA-2-01
LA-03-2

perl -nl -e '/^Record/../LA/ && /(LA.+)/ && print $1' datafile ?

I'm sure I'm doing much more work than necessary - but it's hot in the office.