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