use Tie::File;
tie my @file, 'Tie::File', 'B' or die $!;

{
    open my $fhA, '<', 'A' or die $!;
    while (<$fhA>) {
        $file[$. - 1] =~ s/$Y/$Z/ if /$X/;
    }
}