sub rle {
  my$c;map{shift;$c++;$_[0]ne$_?do{$a="$_*$c";$c=0;$a}:()}@_
}