$line =~ m/~(\d+)~/;
print $line if $changes{$file}{$1};