Select Code to Download

sub java_clean {
    my $contents = $_[0];
...

    return $contents;
}

sub wash {
    ##### my $towash = $_[0];
    return ( "\n" x ( $_[0] =~ tr/\n// ) );
}