Select Code to Download

print '.102.111.111 - ', '0.102111.111';

print  ("$num.111.111 - ").$num.111.111 ;

use strict;
use warnings;
...
print ".$num.111.111 - ",102,111,111;
}