AlexMcLean

sub bang {#

   my $self = shift;

   $self->code->[9] .= "#";##
   $self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;#

   $self->code->[14] =~ s/\#\#.*//;#
   $self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;

   $self->modified;#

}#

http://yaxu.org/