Removed redundant match for single character

The first pattern in the prime check: qr/^(\S)\1+$/ forces it to be at least two characters long (because of the +).