시작은 #!/usr/bin/perl -w STDIN 입력은 간단히 $input = ; 입력에서 마지막 \n 없애기 chomp($input); 문자열을 나눠서 리스트로 만들기 @list = split(/구분자/, 문자열); 파일을 쓰기 모드로 열기 open(HANDLE, ‘>filename’); …