use Modern::Perl;

{
    local $/ = '';
    say +(split /\n/)[0] while <DATA>;
}

__DATA__
ram: 702
Func: Func_file_permission
testing

tam: 768
Func: Func_file_permission
test

cham: 803
Func: Func_file_permission
test