通过使用 sub 关键字后跟 prefix, infix, postfix, circumfix, 或 postcircumfix; 声明运算符; 然后是冒号结构中的冒号和运算符名称。对于（后）环缀操作符，用空格分隔这两部分。

    1. sub hello {
    2.     say "Hello, world!";
    3. }
    5. say &hello.^name;   # OUTPUT: «Sub
    6. »
    7. hello;              # OUTPUT: «Hello, world!
    8. »
    10. my $s = sub ($a, $b) { $a + $b };
    11. say $s.^name;       # OUTPUT: «Sub
    12. »
    13. say $s(2, 5);       # OUTPUT: «7
    14. »
    16. # Alternatively we could create a more
    17. # general operator to sum n numbers
    18. sub prefix:<Σ>( *@number-list ) {
    19.     [+] @number-list
    20. }
    22. say Σ (13, 16, 1); # OUTPUT: «30
    23. »
    25. sub infix:<:=:>( $a is rw, $b is rw ) {
    26.     ($a, $b) = ($b, $a)
    27. }
    29. my ($num, $letter) = ('A', 3);
    30. say $num;          # OUTPUT: «A
    31. »
    32. say $letter;       # OUTPUT: «3
    33. »
    35. # Swap two variables' values
    36. $num :=: $letter;
    38. say $num;          # OUTPUT: «3
    39. »
    40. say $letter;       # OUTPUT: «A
    41. »
    43. sub postfix:<!>( Int $num where * >= 0 ) { [*] 1..$num }
    44. say 0!;            # OUTPUT: «1
    45. »
    46. say 5!;            # OUTPUT: «120
    47. »
    49. sub postfix:<♥>( $a ) { say „I love $a!“ }
    50. 42♥;               # OUTPUT: «I love 42!
    51. »
    53. sub postcircumfix:<⸨ ⸩>( Positional $a, Whatever ) {
    54.     say $a[0], '…', $a[*-1]
    55. }
    57. [1,2,3,4]⸨*⸩;      # OUTPUT: «1…4
    58. »
    60. constant term:<♥> = "♥"; # We don't want to quote "love", do we?
    61. sub circumfix:<α ω>( $a ) {
    62.     say „$a is the beginning and the end.“
    63. };
    65. α♥ω;               # OUTPUT: «♥ is the beginning and the end.
    66. »