|
                                                            V
perl -e 'for my $file (@ARGV) { open my $IN, "<", $file or die $!; while (<$IN>) {s/AJZ/AZZ/g if /^AB/; print}}' input > output