Changed Perl 5.10 operator