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