文章を書いてて全角「"!"」全角「"?"」や全角「" "」を入力しろとキレられた時に使うプログラム

#!/usr/bin/perl 
use strict;
my $BASE = 'このディレクトリに元のテキストファイルを入れとく';
my $BASE_CONV = 'ここに変換後のテキストファイルが入る';
my $ZEN_SP   = '　'; 
my $ZEN_EX   = '！'; 
my $ZEN_QUES = '？'; 

opendir my $dir, $BASE;
while (my $fn = readdir($dir)) {
  $fn =~ /^\.+$/ and next;
  print "$fn\n";
  open my $src, "$BASE/$fn";
  open my $dest, "> $BASE_CONV/$fn";
  while (my $ln = <$src>) {
    $ln =~ s/^  /$ZEN_SP/g;
    $ln =~ s/\!/$ZEN_EX/g;
    $ln =~ s/\?/$ZEN_QUES/g;
    print $dest $ln;
  }
  close $src;
  close $dest;
}