diff options
Diffstat (limited to 'challenge-083')
| -rw-r--r-- | challenge-083/cheok-yin-fung/perl/ch-1.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-083/cheok-yin-fung/perl/ch-1.pl b/challenge-083/cheok-yin-fung/perl/ch-1.pl index d52d4a2055..a3168fee61 100644 --- a/challenge-083/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-083/cheok-yin-fung/perl/ch-1.pl @@ -1,4 +1,6 @@ $_ = <STDIN>; -/(^\w+\s)((\w+\s*)+)(\s\w+$)/; -print length $2,"\n"; +/(^\w+\s)([\w\s*]+)(\s\w+$)/; +$_ = $2; +s/\s//g; +print length, "\n"; |