$string="07122014";

$string =~ s/(\d\d)(\d\d)(\d\d\d\d)/$1\.$2\.$3/; 

print $string;