Help for this page

Select Code to Download

Select or download this

sub encode {
    my ($text, @alphabet) = @_;
...
    eval "\$text =~ tr/@alphabet/A-Z/";
    $text
}

Select or download this

sub encode {
    my ($text, @alphabet) = @_;
...
    $text
}