一発じゃないが
@dat = split(/<>/, $log[$i]);
chomp $dat[-1];