$ perl tst.pl
0012310002 and 0012310003
$