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;