use strict;
use warnings;
use 5.010;  #if you are using version 5.10 or higher.

##</code><code>##

my $count = 1;
while (my $line = <STDIN>) { ...