There's no way to know where a line starts, so you have to read the file until you find the line.

my $id = 'data4';

my $result;
while (<$fh>) {
   /^\Q$id\E\s/ or next;
   ($result) = /\s(\S+)$/;
   last;
}

die "not found" if !defined($result);
[download]