Select Code to Download

use Modern::Perl;
use Tie::File;
...
tie my @oldProps, 'Tie::File', 'old_properties.txt' or die $!;
map { /([^=]+)/; $newProps{$1} and $_ = $newProps{$1} } @oldProps;
untie @oldProps;