From 11c0ddb899dbc90db9351755ce31bcdb797ef89d Mon Sep 17 00:00:00 2001
From: Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com>
Date: Sun, 20 Sep 2020 08:58:33 +0800
Subject: Update ch-2.pl

---
 challenge-077/cheok-yin-fung/perl/ch-2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/challenge-077/cheok-yin-fung/perl/ch-2.pl b/challenge-077/cheok-yin-fung/perl/ch-2.pl
index e5b4026bed..69b9ee0cf3 100644
--- a/challenge-077/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-077/cheok-yin-fung/perl/ch-2.pl
@@ -50,9 +50,10 @@ print_matrix(\@matrix);
 
 sub detect {
     my $segment = join "", @_;
+    $segment =~ s/XX/II/g;
     $segment =~ s/XI/II/g;
     $segment =~ s/IX/II/g;
-    $segment =~ s/XX/II/g;
+#    $segment =~ s/XX/II/g;   modify after deadline
     return split //, $segment;
 }
 
-- 
cgit