in reply to declaring variable

$pass = 'blue'; $pass =~ s|^|5|o && $pass =~ s|$|5|o;

(for "write-only"? variants)

Replies are listed 'Best First'.
Re^2: declaring variable
by holli (Abbot) on Feb 14, 2005 at 20:42 UTC
    or,
    $pass = 'blue'; $pass =~ s/^(.+)$/5${1}5/;


    holli, /regexed monk/
      or

      $pass = 'blue'; $pass = '5'.(' ' x length($pass)).'5' | ' '.$pass.' '
        or

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