diff options
| -rw-r--r-- | challenge-110/mohammad-anwar/perl/ch-1.pl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/challenge-110/mohammad-anwar/perl/ch-1.pl b/challenge-110/mohammad-anwar/perl/ch-1.pl index 4dce75e324..c07833da30 100644 --- a/challenge-110/mohammad-anwar/perl/ch-1.pl +++ b/challenge-110/mohammad-anwar/perl/ch-1.pl @@ -12,10 +12,7 @@ open(my $fh, '<:encoding(utf8)', $FILE) while (my $row = <$fh>) { chomp $row; - if ( ($row =~ /\+\d{2}\s\d{10}/) || - ($row =~ /\d{4}\s\d{10}/) || - ($row =~ /\(\d{2}\)\s\d{10}/) - ) { + if ( $row =~ / ( \+\d{2} | \(\d{2}\) | \d{4} ) \s \d{10} /x ) { print "$row\n"; } } |