my $file = join('', <>);

foreach (keys %replace)
{
     $file =~ s/$_/$replace{$_}/g;
}

##</code><code>##

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