$pass = 'blue'; $pass =~ s/^(.+)$/5${1}5/; [download]
In reply to Re^2: declaring variable by holli in thread declaring variable by Anonymous Monk