if ($a=~m#$text=~s(.)\s*(?<!\1)#)

should be

if ($a=~m#$text=~s(.)\s*(?!\1)#)