my $date = ( split /<>/, $line )[1];

my( undef, $date ) = split /<>/, $line;

my( undef, $date, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef) = split /<>/, $line;