# after your substitution...
print $_;
print OUT $_;