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