while (my $string = <DATA>)
{
    for my $chars (2, 4, 8)
    {
        printf "Found %2d repeating characters: %s\n", $chars * 2, $1 . $1
            if $string =~ /^([0-9a-fA-F]{$chars})\1/;
    }
}