Non-regex:

my $str = "xabcabcababca";
my $is_good = index(substr($str, 1), substr($str, 0, 1)) < 0;
[download]