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/