Re: String character replacement based on position

$ perl -le'
$_ = q/atcgcgtacatcgatac/;
print;
s/(?<=.{8})(.)/\u$1/s;
print;                   
'
atcgcgtacatcgatac
atcgcgtaCatcgatac
[download]

Comment on Re: String character replacement based on position Download Code

Replies are listed 'Best First'.
Re^2: String character replacement based on position by deibyz (Hermit) on Feb 23, 2011 at 11:13 UTC
Or, using pos() and \G `$ perl -le' $_ = q/atcgcgtacatcgatac/; print; pos = 8; s/\G(.)/\u$1/; print; ' atcgcgtacatcgatac atcgcgtaCatcgatac` [download]	[reply] [d/l]