Select Code to Download

$ cat /tmp/x
my $regex = '(2[0-4]|1?[0-9])?[0-9]|25[0-5]';
...
300
300 matched
^C

my $regex = '(2[0-4]|1?[0-9])?[0-9]|a';

my $regex = '(2[0-4]|1?[0-9])?[0-9]|25[0-5]';

my $regex = qr/(2[0-4]|1?[0-9])?[0-9]|25[0-5]/;