use warnings;
use strict;

my $i    = 0;
my $pattern;
while (my $line = <DATA>) {
        chomp $line;
        $pattern  = '>';
        if ($line =~ s/^$pattern//) {
                $i++;
                print "$i: $line \n";
        }
}
__DATA__
>foo