if ($line =~ /Input\s+:\s+(\d+)/) { print $1," is the value of Input"; }