$s = 'aaaabaaaabaaaaabaaaab';;

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