use strict; use warnings; use utf8; my $line = ; my $S = ; chomp $line; my ($A, $B) = split /\s/, $line; print $A+$B." $S";