How to rewrite this Java code in Perl?

Hi,
I have this code in Java. I would like to rewrite it in Perl. How can I do it?

This code basically, opens a file, and if the line starts with s, S or D then we capture the entire line. and keep it in one single variable. So each match will be appended to the previous one with new line character.

		   # public static java.lang.StringBuilder createSubmittedFiles(java.lang.String pathToJobfile){
		   # java.lang.StringBuilder submittedFiles = new StringBuilder();
		   
				# //find the submitted files in the job file 	
		   # Scanner inJob = null;
				# try{
					# inJob = new Scanner(new File(pathToJobfile));
					# java.lang.String jobFile = null;
					# while(inJob.hasNextLine()){
						# jobFile = inJob.nextLine();
						# if(jobFile.startsWith("s ") || jobFile.startsWith("S ") || jobFile.startsWith("D ")){
						# // This is to place an extra space between the file and the revision number
						# jobFile = jobFile.replaceAll("(\\.[A-Za-z]{1,3}) (\\d)", "$1  $2");
						# submittedFiles.append(jobFile).append("\n");
						# }
					# }
				# } 
				# catch(Exception e){
					# logger.error(e);
				# }
				# finally{
					# inJob.close();
				# }
		   # return (submittedFiles);
	   # } //createSubmittedFiles

Select allOpen in new window