open handle, "yourfile";

my $i = 0;

while( <handle> ) {

        tr [~] [ ];

        print $_;

        $i++;

}

print $i;

close handle;