my $p1= "iapw_p1";
my $p2= "iapw_p2";
my $p3= "iapw_p3";
my $b1= "iapw_b1";
my $p0= "iapw_p0";
my $c0= "iapw_c0";
my $c1= "iapw_c1";
my $c3= "iapw_c3";
my $h1= "iapw_h1";
my $p1b="P1 = (file inquiry - launch page)";
my $p2b="P2 = (file search - replace - operators)";
my $p3b="P3 = (file notepad)";
my $b1b="B1 = (file inquiry: old - owners and preowners)";
my $p0b="P0 = (file search)";
my $c0b="C0 = (file search)";
my $c1b="C1 = (file inquiry)";
my $c3b="C3 = (file notepad)";
my $h1b="H1 = (file and arch inquiry and history)";
for (@a_data) {
s/$p1/$p1b/;
s/$p2/$p2b/;
s/$p3/$p3b/;
s/$b1/$b1b/;
s/$p0/$p0b/;
s/$c0/$c0b/;
s/$c1/$c1b/;
s/$c3/$c3b/;
s/$h1/$h1b/;
}