$pass = 'blue';
$pass =~ s/^(.+)$/5${1}5/;