Select Code to Download

my $change = 1;
while ($change) {
...
    $change ||= s/^($pattern)/$h_orig->{$1}/g
        for values %copy;
}