Select Code to Download

sub runcode {
  my @ret;
...
  }
  return @ret;
}

# 78 chars
sub RC {
#123456789_123456789_123456789_123456789_123456789_123456789_123456789
+_12345678
 my@r;while(@_){my($x,$c)=(shift,1);$c++,shift while$_[0]eq$x;push@r,"
+$c*$x"}@r
}