:perl $count = 0 :perldo $count += split /[;_<> ]/, $_ :perl VIM::Msg($count)