Select Code to Download

sub test(\$) {
    my ($scalar_ref) = @_;
    $$scalar_ref =~ tr/a-m/N-Z/;
    substr($$scalar_ref, 0, 0) = "prepended sumthin'";
}