my $str = ‘black_dog’;#変数にいぬの色挿入
if ($str =~ /black/) {　#黒かどうか判定
print “Yes”;
}else{
print “No”;
}

my $str2=’black_dog’;
$str2=~ s/black/white/; #置換演算子 黒から白に変更
print $str2;

my $num=1234;
if($num=~ /[0-9]{4}/){ #numが４桁の数字かどうか判定
print “Yes”;
}else{
print “No”;
}