if ($line=~ m/.java/)
{ $line=~ s/^(f:\\MF\\BR\\PreparedSources\\)([a-z]+\\)([a-z]+_dev)(\\)([a-z]+)(.java)$/JAVAFILE "$4$5$6" "$2" "##All"/}</p>