>>76

$who ='山本';
open(IN,"<","point.log")
open(OUT,">","point.log.new")
while(<IN>){
next if /^\Q$who\E</;
print OUT;
}
print OUT 山本の最新のデータ
close(IN)
close(OUT)