$s = 'aaaabaaaabaaaaabaaaab';; $s =~ m[(.+).*\1] and print $1;; aaaabaaaab