> ﾌﾟﾛｸﾞﾗﾑ好きな諸君に質問
> ちと一番得意なｽｸﾘﾌﾟﾄ言語で
> 複数のﾌｧｲﾙの合計ｻｲｽﾞを取得して表示するﾌﾟﾛｸﾞﾗﾑを
> さらっと書いてみてくれ

Perlで書くとこんな感じになんのかな
てきとうに書いたんで動作ﾁｪｯｸしてないけど

#!/usr/local/bin/perl

while (<>) {
  next unless /K.._/;
  $size += (split)[2];
}
print $size, "\n";

参考：2006/07/19(水)07時54分00秒