in reply to Tie::File query
for ($atied[1]) { s/a/z/; } [download]
It probably would have been faster for you to test it than ask here.
..... and bittersweet!