#!/usr/bin/perl\

use strict;
use warnings;

open my $FH "<", "filename.txt" or die $!;
while (my $line = <$FH>) {
     my ($id, number, $sequence) = split /\s+/, $line;
     # ...
}