$catted =~ s/(.*) (?=\1)//;