fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. if ("no-mac4-two-git5a0r-m0-18md12b...." =~ /(\d+)(?=\D*$)/) {
  4. 	print "$1\n";
  5. }
  6.  
  7. if ("no-mac4-two-git5a0r-m0-18md12b...." =~ /(\d+)\D*\z/) {
  8. 	print "$1\n";
  9. }
  10.  
  11. if ("no-mac4-two-git5a0r-m0-18md12b...." =~ /.*(?:\D|^)(\d+)/) {
  12. 	print "$1";
  13. }
  14.  
  15.  
Success #stdin #stdout 0s 4956KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
12
12
12
https://ideone.com/PuhqsM
language:
Perl (perl 5.28.1)
created:
4 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!