sub matchAttribute 
{
	$pos = index($_, " ");
	$var11 = substr($_, $pos);
	$var11 =~ s/^\s+//;	
        return $var11;
}

while loop
if (/^Temp:/){
    chomp;
    $var_temp = matchAttribute ($_);
    print "var_temp= $var_temp";
}