map :, perld s/\"/\\"/g:, perld s/(.*)/out.println("\1");/ :, perld s/<%=([^%]+)%>/\" + \1 + \"/g :, perld s/(<%)(.*)/\1\2 \/\/ Revisit this later/; map! :, perld s/\"/\\"/g:, perld s/(.*)/out.println("\1");/ :, perld s/<%=([^%]+)%>/\" + \1 + \"/g :, perld s/(<%)(.*)/\1\2 \/\/ Revisit this later/;