DB<1> $line = 'root 30145 1 0 Jan30 ? 00:09:01 /root/java/app/java_app_1Rule_java_app_2Rule.java --javaproc';

  DB<2> $id = $1 if $line =~ /(\w+)\.java\s/;

  DB<3> print $id;
java_app_1Rule_java_app_2Rule