if( m/iapw_p1/ ) { s/iapwp1/$p1/og; print; }