$s = 'aaaabaaaabaaaaabaaaabaaaaabaaaab';;

$s =~ /^((.*).*)\1*\2$/ and print "$1/$2";;
aaaabaaaabaaaaabaaaaba/aaaabaaaab