http://www.perlmonks.org?node_id=1030995


in reply to Re^3: Change variable multiple times within a single string?
in thread Change variable multiple times within a single string?

~ Printing the variable in each line is only showing the current value..

That is excatly my point. Since, what to print when '1' is seen is not known, I think is better to leave it out.
Your output:

A (yes) 1 (yes) #? 1 (yes) #? 1 (yes) #? B (no) 1 (no) #? 1 (no) #? 1 (no) #? A (yes) 1 (yes) #? 1 (yes) #? 1 (yes) #? B (no) 1 (no) #? 1 (no) #? 1 (no) #?
Output with a little modification:
A (yes) B (no) A (yes) B (no)
OR one can provide for '1' in hash like so:
my %decision = ( A => 'yes', B=> 'no', '1'=>'', );
Then the output shows:
A (yes) 1 () 1 () 1 () B (no) 1 () 1 () 1 () A (yes) 1 () 1 () 1 () B (no) 1 () 1 () 1 ()
Just saying.....

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me