　今日からは正規表現を頑張ってみます。基本的に正規表現のイロハは知っているので、Perlでどのように正規表現を使うのかを知ることが学習のメインポイントになると思っています。

追記: 　基本だから、結構知っていることばっかりだったかも。

　「=~」演算子を用いることで、「左辺の文字列が右辺のパターンに一致するかどうか」を調べます。

use strict;
use warnings;
my $str = 'yesterday';
if ($str =~ /yes/) {
print "Match!\n";
} else {
print "No Match!\n";
}

use strict;
use warnings;
my $str = 'yesterday';
if ($str =~ /yes/) {
print "$& --- Match!\n";
} else {
print "No Match!\n";
}

このようにすると、変数 $& には「yes」が格納される。

　直前にあるのが「あっても、なくても構わない」ことを示します。

　「s///」を使うよ！

use strict;
use warnings;
my $str = "This is a cat. That is a cat, too.\n";
$str =~ s/cat/dog/;
print $str;

「s/cat/dog/」を使うと、最初にマッチしたcatだけを置換して、文字列の残りは無視されることに注意！ただし、次のようにすると全部置換してくれる。

use strict;
use warnings;
my $str = "This is a cat. That is a cat, too.\n";
$str =~ s/cat/dog/g;
print $str;