And another ...

sub all_eq4 {
    local$"='';
    "@_"eq$_[0]x@_
}
# 25 chars
[download]

Update: Unfortunately, this methodology is flawed. It returns the wrong value for a list such as ('a a', 'a a a', 'a').

John.
--