Yes it can, but your s/// fails on both accounts: it doesn't match duplicated letters, and it doesn't keep track of what character that was. Here is code that matches duplicated letters and replaces the second one with a '2':

$string =~ s/([a-zA-Z])\1/${1}2/g;
[download]

Note these things:

• [a-zA-Z] matches a lowercase or uppercase English letter
• ([a-zA-Z]) captures that letter to the backreference \1 (and later, to $1)
• \1 matches whatever is stored in backreference \1 (the specific letter matched)
• ${1}2 is the variable $1 (how you retrieve backreference \1 outside a regex) followed by the number 2 -- the reason I have $1 in braces (${1}) is so that Perl doesn't see $12 as the scalar variable $12

If you don't care about case, you can use the /i modifier, like so:

$string =~ s/([a-z])\1/${1}2/ig;
[download]

Please read perlretut for more.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.