/Input\s+:\s+(\d+)/;

##</code><code>##

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