substitution operator

[sparc20]

How can i use the substitution operator for a string variable, lets say

$name="John";

with just the initial of the name and "."

so it will end up

$name="J." ?

many thanks

 

[raklet]

#Save the first char in memory and then find the rest. Replace everything found in first segment by the saved char
and a period

$name = "John";
$name =~ s/^(.).+/$1\./;
print $name;