$num =~ s/(.{3})(?!$)/$1./g; #### $num = reverse $num; $num =~ s/(.{3})(?!$)/$1./g; $num = reverse $num; #### $num =~ s/(?!^)(.{3})(?=(?:.{3})*$)/.$1/g;