Inserting a character to a line

[pinpe]

Hi,

How do I insert character (e.g. , or .) at certain positions in a line? For example I want to insert a period ( . ) after the first 4 characters of every each line in the file. I cannot do it in sed command. I'm playing with my script using perl command but to no avail. Please advice. Thanks in advance.

See below:

Input:

12345
67890
23456
78901
34567
 

Desired Output:

1234.5
6789.0
2345.6
7890.1
3456.7
 

Br,
Pete

[eWish]

Here is one way you can do it.

my $string = 12345;
   $string =~ s/^(\w{4})(.*)$/$1.$2/g;
 
   print $string;

#Output:
1234.5

--Kevin

[pinpe]

Hi,

I found my answer. This works on me:

$x =~ s/\A(....)/$1./;
 

Tnx anyway. =)

[KevinADC]

Hi,

I found my answer. This works on me:

$x =~ s/\A(....)/$1./;
 

Tnx anyway. =)

Where did you find it?