Select Code to Download

#!/usr/bin/perl

...
   thedoe1      => sub { (my $dum) = $str =~ /(?<!abc).*abc\s(\d+)/gs;
+ },
   thedoe2      => sub { (my $dum) = $str =~ /abc(?!.*abc)\s(\d+)/s; }
+,
});