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