my $line = 'root 30145 1 0 Jan30 ? 00:09:01 /root/java/app/java_app_1Rule_java_app_2Rule.java --javaproc'; if ($line =~ m|/([^/]*?)\.[a-z0-9]+|) { print "$1\n"; }