$file =~ s/(iapw_..)/$replace($_}/g;