Select Code to Download

use strict;
use warnings;
...
if ($body_text=~m/(\d{1,2})(?=\smins|\sminutes)/g) {
    print "2nd try: " . $1 . "\n";
}

1st try: 5
2nd try: 6