sub java_clean {
    my $contents = $_[0];
    while ($contents =~ s/(\{[^\{]*)\{([^\{\}]*)\}/
	   $1."\05".&wash($2)/ges) {}
    $contents =~ s/\05/\{\}/gs;

    # Remove imports
    ##$contents =~ s/^\s*import.*;/&wash($&)/gem;
    $contents =~ s/(^\s*import.*;)/&wash($1)/gem;

    # Remove packages
    ##$contents =~ s/^\s*package.*;/&wash($&)/gem;
    $contents =~ s/(^\s*package.*;)/&wash($1)/gem;

    return $contents;
}

##</code><code>##

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