#!/usr/bin/perl

if ("no-mac4-two-git5a0r-m0-18md12b...." =~ /(\d+)(?=\D*$)/) {
	print "$1\n";
}

if ("no-mac4-two-git5a0r-m0-18md12b...." =~ /(\d+)\D*\z/) {
	print "$1\n";
}

if ("no-mac4-two-git5a0r-m0-18md12b...." =~ /.*(?:\D|^)(\d+)/) {
	print "$1";
}