#!/usr/bin/perl # 1行読み込む $N = <>; # 末尾に改行が付いているので取り除く chomp $N; # 空白で分割する ($A, $B) = split /\s/, $N; # 1行読み込む $S = <>; # 末尾に改行が付いているので取り除く chomp $S; # 標準出力に出力します print $A + $B, " ", $S;