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

##</code><code>##

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