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