my ($name) = m/sequence (.*?) consists/i;

##</code><code>##

$_ = join ' ', split;