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