in reply to Re^3: declaring variable
in thread declaring variable

or 

$pass = 'blue';
$pass =~ s/.{4}/($i=1+length($pass)).$pass.$i/e;

[download]

In Section Seekers of Perl Wisdom