O inventor parece ser Abigail, descobri na comunidade PerlMonks.
A ER é a seguinte: /^1?$|^(11+?)\1+$/
Para verificar se determinado número é primo, você tenta combinar o número que deseja em quantidade de 1.
Ou seja, se quero ver se 11 é primo, tento casar: 11111111111
Veja o teste:
re> /^1?$|^(11+?)\1+$/
data> 11111111111 No match
Quando não combina, quer dizer que ele é primo!
A explicação do padrão você encontra aqui!
Eu fiz o teste acima com pcretest, mas você pode usar a seguinte linha usando Perl:
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [number]