[질문] Perl을 이용해서 서버스펙 매칭 프로그램을 만들고 있는데요.

        open my $s_log, '>>', $s_log_file;
        printf $s_log("%-20s @snet_d:%-16s(@s_ethtool) RedHat %-s%-15s %-5s %-sGB(%-sGB)\n","@s_host","@s_ip","@s_os","@s_arc","@s_cpu","@s_mem","@s_swap");
        close $s_log;
 
 
        ## Match
        open (S_FILE, "+<$s_log_file") or die "open failed!\n";
 
 
  my $logs=0;
 
        while (my $line =<S_FILE> )
        {
        substr($line, 43);
                if ( $line =~ /5.8/mi ){
                $logs++;
                }
        }
        if($logs) {
        printf ("%-20s @snet_d:%-16s(@s_ethtool) RedHat %-s%-15s %-5s %-sGB(%-sGB) Matched!\n","@s_host","@s_ip","@s_os","@s_arc","@s_cpu","@s_mem","@s_swap");
               }else{
               printf ("%-20s @snet_d:%-16s(@s_ethtool) RedHat %-s%-15s %-5s %-sGB(%-sGB) Does Not Matched!\n","@s_host","@s_ip","@s_os","@s_arc","@s_cpu","@s_mem","@s_swap");
              }
        close (S_FILE);
        }
close $snoarch;
}