#!/usr/bin/perl
use strict;
use warnings;

use Getopt::Long;

##</code><code>##

S:\Steve\PerlMonks>perl .\tparse.pl --platform=1 --version=E48.1
Bareword found where operator expected at .\tparse.pl line 25, near "$version will"
        (Missing operator before will?)

##</code><code>##

     if (!defined($version))
     {
          Find version number!!
          $version = E . "$valuefind"; ($version will be E48.2)
     }