$input = <STDIN>; 
chomp($input); 
$length = length($input); 
$total = 0; 
$temp = 0; 
for($i = 0; $i < $length; $i++) 
{ 
	if(substr($in, $i, 1) == substr($in, $i, 1) + 0) 
	{ 
		$temp . substr($in, $i, 1); 
		print $total, "\n"; 
		print "shit"; 
	} 
	else 
	{ 
		$total += $temp; 
		$temp = 0; 
	} 
}

use strict; 
use warnings; 
print "Enter test string: "; 
chomp( my $in = <STDIN> ); 
my $total   = 0; 
my $cur_num = 0; 
my $last_index = length($in) - 1; 
for my $i (0 .. $last_index) { 
    my $cur_char = substr $in, $i, 1; 
    next if !grep {$cur_char eq $_} (0 .. 9,' '); 
    if ( $cur_char eq ' ' ){ 
        $total += $cur_num; 
        $cur_num = 0; 
        next; 
    } 
    $cur_num = 10 * $cur_num  +  $cur_char; 
} 
$total += $cur_num; 
print $total, "\n";

use strict; 
use warnings; 
use IO::Prompt::Hooked; 
use Regexp::Common qw/number/; 
use List::Util qw /sum/; 
my $in = prompt("Enter string: "); 
$in =~ s/[^0-9 ]//; 
print sum( $in =~ /($RE{num}{int})/g ), "\n";

#!/usr/bin/perl 
 
use Modern::Perl '2010'; 
use Scalar::Util qw(looks_like_number); 
 
say "Please enter your string"; 
chomp(my $str = <STDIN>); 
 
my $total = 0; 
for my $value (split ' ', $str) { 
    $total += $value if looks_like_number($value); 
} 
say "Total: $total";