#!/usr/bin/perl

use strict;
use warnings;
use overload;

print +("$_ : ", $overload::ops{$_},$/) for (keys %overload::ops);
[download]

Update: Used a colon in the print instead of a "=" to separate key/value.

3way_comparison : <=> cmp
dereferencing : ${} @{} %{} &{} *{}
str_comparison : lt le gt ge eq ne
with_assign : + - * / % ** << >> x .
binary : & | ^
iterators : <>
unary : neg ! ~
special : nomethod fallback =
num_comparison : < <= >  >= == !=
assign : += -= *= /= %= **= <<= >>= x= .=
mutators : ++ --
func : atan2 cos sin exp abs log sqrt int
conversion : bool "" 0+
[download]