set -e
[ -f $fname ] && [ -r $fname ]
perl -i.bak -pe 's/AJZ/AZZ/g if /^AB/' $fname