You could try using unpack/pack:

  $foo = "hello, world";
  @foo = unpack( ("a" x length($foo)), $foo);
  @foo = map { bar $_ } @foo;
  $foo = pack( ("a"x@foo), @foo);
[download]

This isn't an inplace edit, though. --Dave