You need to remove the \bs. (as an aside: you can also replace map with foreach):

  foreach (@lines) { s/apple/orange/g }
[download]

--Dave