my($a, $b) = split(' ', ); my $n = ; print+($a+$b).' '.$n;