# perl
          # $_ 是預設參數
          
          if (/foo/) { ... }
          s/foo/bar/g;
          say;