How to catch the last number in a string in Perl?

Well, since they're the only numbers in that line, just look for digits:

$line = "The McCabe complexity of 'myFile' is 27.";
$line =~ m/.*?(\d+).*/;
$number = $1;
print $number, "\n";

Select allOpen in new window

Are there going to be any numbers *before* the "27" in this line?

The filename may include numbers. Or the worst case scenario is the file name can be only numbers. But I guarantee that the file name will be in single quotes.

$line = "The McCabe complexity of 'myFile2' is 27.";
$number =  (split/\D+/,$line)[-1];

And the other thing is, I read a file into a string. So When we search for the number we should also check that it has this patttern:

The McCabe complexity of 'someTextInHere' someNumberInHere

Select allOpen in new window

So the string will be some thing like this:

some characters in here and some other characters
in here then we also have stuff in here then we have The McCabe complexity of 'myFile' 43
and we also have characters in the file.

Select allOpen in new window

How are going to catch 43 in this long string?

I guarantee that we will have "The McCabe complexity of 'SOMEFileNAME' " before the number.