Select Code to Download

    cleaner( \"to be cleaned" );

    sub cleaner {
        my $ref = shift;
        $$ref =~ s/foo/bar/;
    }