$line =~ /^>(\w+)/;   # capture as many consecutive \w characters as possible following >
$line =~ /^>(\S+)/;  # capture as many consecutive non-whitespace chars as possible following >