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