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