$line=~/^(\d+):/;
if( $1==$input ){
...