in reply to RegEx revision needed

How about:

next if /Vertical/; if ( /Ver # Find string beginning with 'Ver' [^\s]* # and continuing to next space char. \s* # Skip over the space ([^\s;,\n\r>]+) # Capture next 'word': any characters # other than space, newline, punct. /x ) { $version = $1; # Save captured text, if found. }

--
TTTATCGGTCGTTATATAGATGTTTGCA