if ($info =~ /(\d+)-(\d+)/) {
        $changes{$file}{$_} = 1 foreach ($1..$2)
    } else {
        $changes{$file}{$info} = 1;
    }
##</code><code>##

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