or, uhm...

$x = substr($x.$y, -(length($y) * ($y =~ s/^$y$/$x/)), length($y));

update: substr, not suystr. sorry. Thanks John.