perl script 질문

파일의 내용을 replace하는 스크립트를 perl로 만들어쓰고 있습니다.

대략 아래와 같은 식입니다..

#!/usr/bin/perl
use strict;
 
while ( <> ){
s,foo1,bar1,gi;
s,src,dst,gi;
print
}

while loop안의 reg exp가 많고 복잡해서 perl로 이런 스크립트를 만들어 쓰고 있는데요,

이걸 입력파일의 첫번째 컬럼은 제외하고 나머지 라인에 대해서만 적용시키려면,
어떻게 고쳐야할까요?