[완료]perl초보입니다. 정규식 관련질문입니다...

#!/usr/bin/perl 
#===============================================================================
#
#         FILE:  remove_comment.pl
#
#        USAGE:  ./remove_comment.pl <file1> [ <file2> ... ]
#
#  DESCRIPTION:  주석 제거
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:   (), <>
#      COMPANY:  
#      VERSION:  1.0
#      CREATED:  2007년 06월 29일 10시 31분 39초 KST
#     REVISION:  ---
#===============================================================================
 
use strict;
use warnings;
 
# 커맨드 라인 인자 처리
my @files = @ARGV;
exit_with_usage("주석을 제거할 하나 이상의 파일 명이 인자로 필요합니다")
    if @files < 1;
 
# 파일 목록에 대해 하나씩 처리
for my $file ( @files ) {
    # Power Slurping
    open my $fh, "<", $file
        or exit_with_usage("$!");
    my $lines = do { local $/; <$fh> };
    close $fh;
 
    # 주석 제거
    $lines =~ s/ ^ REM ([ \t]+ [^\n]*)* //gxms;
 
    # 파일에 덤프
    open $fh, ">", "$file.new"
        or exit_with_usage("$!");
    print $fh $lines;
    close $fh;
}
 
# 사용법 출력 후 프로그램 종료
sub exit_with_usage {
    my $msg = shift;
 
    print "$msg\n\n" if $msg;
    print "Usage: $0 <file1> [ <file2> ... ]\n";
 
    die;
}