Daily coding Project Euler 問題80

gistfile1.pl

use strict;
use warnings;

my $result = 0;

for my $natural_number (1..100){
   if((my $square_root = sqrt $natural_number) =~ /[\D]/ ){
      my @target_list = split // , $square_root;
      
      my $i = 0;
      for(@target_list){
        if($i >= 100){last;}
        if($_ =~ /[\d]/){$result = $result + $_; $i++;}
      }
   }
}

print $result;