use strict;

package UNIVERSAL;

use overload "." => \&concat;


sub concat {
    my ($a, $b) = @_;
    return join "XXX", $a, $b;

}


package Foo;

my $thing = "cat" . "dog";

print "\n\n\n$thing\n\n\n";