$s = 'aaaabaaaabaaaaabaaaab';;
$s =~ m[^(.+)\1*(.*?$)] and $1 =~ $2 and print "$1/$2";;
aaaabaaaabaaaaabaaaab/