#!/usr/bin/perl
use strict;
use warnings;
open (FILE,"test.txt");
my $total=0;
while (<FILE>)
{
        $total=$total+s/>/>/g;
}
print $total;