@results = grep( /^$line[3]/, @raw_data);

##</code><code>##

1235 some text data
784783 some other data

##</code><code>##

my $search_for = "text";
my $re = qr/^(\d+)\s+\Q$search_for\E/;
open D,"data.txt" or die "Cant open file: $!";
while (<D>) {
   /$re/ or next;
   print "$1\n";
}
close D;

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.