Select Code to Download

use 5.020;
use warnings;
...
    next if $word !~ m/ \d+ /x or looks_like_number($word);
    say qq{"$word" has numbers, but doesn't look like number. Start: $
+start, end: $end};
}

"1foo;" has numbers, but doesn't look like number. Start: 4, end: 9
"foo_2" has numbers, but doesn't look like number. Start: 12, end: 17
"1_1" has numbers, but doesn't look like number. Start: 48, end: 51
"\x87" has numbers, but doesn't look like number. Start: 61, end: 65
"!@#99$%" has numbers, but doesn't look like number. Start: 78, end: 8
+5

    @LAST_MATCH_START
    @-
...
    @+
    This array holds the offsets of the ends of the  last
successful submatches in the currently active dynamic scope.