Select Code to Download

public class test {
    public static final test alpha = new test("foo", "bar");
...
    public static final test alpha = new test("foo", "bar");
    public static final test beta = new test("baz", "boo");
}

perl -MData::Dumper -le 'undef $/;$javafile = <>; while ( $javafile =~
+ / class (\w+) (.*?)^\}/smg ) { ($class,$body) = ($1,$2); while ( $bo
+dy =~ /(\w+)\s*=\s*new\s+$class\s*\((.*)\)/g) { ($variable,$parameter
+s)=($1,$2); foreach $v (split",",$parameters){ $v =~ s/[ "]//g; push 
+@{$var{$class}{$variable}},$v   } } }; print Dumper %var  ' kk.java

$VAR1 = 'test';
$VAR2 = {
...
                       'boo'
                     ]
        };

#!/usr/bin/perl

...

# Out of the space
print Dumper %vars;