$_ = "kubo takuya"; # 特殊変数に代入 print "found" if m/kubo/; # もし kubo が含まれれば print "found" if m/KUBO/i; # 大文字小文字区別なし print "found" if m/^kubo/; # もし先頭が kubo であれば print "found" if m/ya$/; # もし末尾が ya ならば
$_ = "kubo takuya"; # 特殊変数に代入 s/k/K/g; # すべての k を K に s/(^.+)( )(.+$)/$3 $1/; # 入れ換え print; # taKuya Kubo と表示