$s = 'aaaabaaaabaaaaabaaaab';;
$s =~ /^((.*?).*?)\2*\1$/ and print "$2/$1";;
a/aaaabaaaab