#!/usr/bin/perl
 open(F, "< tmp");
  while(<F>) { $file .= $_; }
close(F);
 $file =~ s/
//g;     #
 제거
 foreach (split(//, $file)) {     #  기준으로 레코드 구분
        $_ =~ s//	/;     # 첫번째 을 	로 교체
        $_ =~ s// /g;     # 두번째 이후의 은 모두 공백으로 교체
        $_ =~ s/ $//;     # 혹시 있을지 모를 맨끝의 공백 제거
        print "$_";
}
     : 정규표현식이나 펄에대해 좀 아시는분
:
: 계십니까?
:
: 노가다좀 안해볼라구 해골굴리는데..
:
: 이러다가 해골 가루되겠습니다.
:
: 여러줄에 걸친 텍스트 데이타를 특정 형식으로 바꿔볼라는데
:
: 도무지 발상이 안떠올라서요.
:
: 지금 원래 데이타 형식이
: -------------------------------
: 문자열(문자열)
 
: 문자열
 
: 문자열
 
:
 
: 문자열(문자열)
 
: 문자열
 
: 문자열
 <= 이문자열의 줄수는 가변적..
:
 
: .
: .
: .
: --------------------------------
: 이런식으로 되있는데 이놈을..
:
: -------------------------------------------------
: 문자열(문자열) 	 문자열 문자열 문자열 ...  
: 문자열(문자열) 	 문자열 문자열  ...  
: .
: .
: .
: -------------------------------------------------
:
: 이런식으로 바꾸고 싶습니다.
:
: 혹시 아시는분 답변좀..
:
: --
: 이 곳에 서명을 적어주십시오.
:
: 적어야 되나보군요.. 히히
:
: Sam the Immortal Cardinal