diff --git a/lib/Text/Conceal.pm b/lib/Text/Conceal.pm
index f3df074..3d89362 100644
--- a/lib/Text/Conceal.pm
+++ b/lib/Text/Conceal.pm
@@ -85,8 +85,8 @@ sub decode {
     my @replace = @{$obj->{replace}} or return @_;
   ARGS:
     for (@_) {
-	while (my($i, $r) = each @replace) {
-	    my($regex, $orig, $len) = @$r;
+	for my $i (0 .. $#replace) {
+	    my($regex, $orig, $len) = @{$replace[$i]};
 	    if (s/$regex/_replace(${^MATCH}, $orig, $len)/pe) {
 		if ($obj->{duplicate}) {
 		    ;