$n = 0;
while ( $line = <> ){
    $n++;
    if ( $line =~ /printf/ ){
	print $n, ":", $line;
    } 
}
