I'm trying to grab the primary or main version number from a string kept in a file that is maintained by product patches. Here is a snippet of Perl code that reads the single line from that file and attempts to isolate that primary version number.