if ($myvar =~ /^([[:alpha:]])\1*\z/)
{
  ...
}