#!/usr/local/bin/perl5

# ddd dcd ddd ccc ddd dcdESC[20;20H入力スピード       = 36.00 (語/分)ESC[21;20H誤
# 入力を除いた場合 = 36.00 (語/分)ESC[22;20H              (誤入力率 0.00％)

while(<>) {
    if (/^From: (.*)/) {
	print "From: $1\n";
    }
    if (m!= ([.\d]+) \(語/分\)!) {
	print " $1 word/min\n";
    } 
    if (m/\(誤入力率 *([.\d]+)％\)/) {
	print " $1 % error\n";
    }
}

