open(FILE,"+<$file");
@data = <FILE>;

map {
if ($_=~/A/) { $_=''; }
} @data;

seek(FILE, 0, 0);
print FILE @data;
close(FILE);
----------------------------
なんか間違ってたら直して