perl -E 'my $s="ME170-5/2/8-ME172-2/2/6-ME4028"; while ($s=~m|(\d{1,2}/\d{1,2}/\d{1,2})|g){++$x;say "$x Found $1:"  . " POS=" . (pos($s)-length($1)+1)}'