Select Code to Download

my @t = qw( regex regex. regex.1 regex.12 regex.1a regex.a regex.abc r
+egex.a1 oregex.2 );
say s/^regex(?!\.[^\d])(\.\d*)?/|$&|/r for (@t);

|regex|
|regex.|
...
regex.abc
regex.a1
oregex.2