@arr = qw/aaa aba abb bac efg/; tr/a/x/ for @arr; print join ' ', @arr;