use strict;
use warnings;

my $data = <<DATA;
this is test only 1
Baki: 9.70

this is test only 2
Baki : 9.30

this is test only 3
Baki : 9.00
DATA

my $lastRecord;

open my $in, '<', \$data;

local $/ = "\n\n"; # Read a record at a time

while (defined (my $record = <$in>)) {
    chomp $record;
    next if $record =~ /$(?:Baki)/;
    $lastRecord = $record;
}

print $lastRecord;

##</code><code>##

this is test only 3
Baki : 9.00