13:30 >perl 1738_SoPW.pl
BEFORE: str = A
BEFORE: str = _B
BEFORE: str = C
INNER:  str = A
INNER:  str = B
INNER:  str = C
AFTER:  str = A
AFTER:  str = _B
AFTER:  str = C

13:30 >