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