>perl -wMstrict -le
"my $s = ',42 MAN:113 some other test 666.... MAN 231,456 TEXT'
       . 'text alpha Man 999 etc..77789 etc man 111,222,333'
       ;
 print qq{[[$s]]};
 ;;
 my $man = qr{ (?i) man :? }xms;
 ;;
 my @n = $s =~ m{ (?: \G (?<! \A) \s* , | $man) \s* (\d+) }xmsg;
 printf qq{'$_' } for @n;
"
[[,42 MAN:113 some other test 666.... MAN 231,456 TEXTtext alpha Man 999 etc..77789 etc man 111,222,333]]
'113' '231' '456' '999' '111' '222' '333'