print '.102.111.111 - ', '0.102111.111';

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

{
local $,=".";  #so you get the . 's
print ".102.111.111 - ",102,111,111;
my $num=102;
print ".$num.111.111 - ",102,111,111;
}