Perlでテキストファイルの半角スペースを取り除く

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

# フィルハンドルを開いてコンテンツを読み込む
open my $contents, '<', 'digital_dic2.txt';

# 半角スペースを取り除き半角スペースタグ除去後のコンテンツを表示する
# 改行は残したいのでケツに\nを付ける
while(<$contents>){
    $_=~ s/\s//g;
    print $_ . "\n";
}

# フィルハンドルを閉じる
close my $contents;

少しずつWindowsからLinuxに移行していきつつ、
EmacsとLispを使って効率的なことを進める1年にしたいなー。

とミサカはミサカは切実に思うのです。