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が4桁の数字かどうか判定
print “Yes”;
}else{
print “No”;
}