#!perl -p
s/(.+?)\1*$/$1/