C:\PerlProjects\Monks>perl regextest.pl
Start Basic Standard Services:
  Starting $name='ONC RPC PortMapper' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Time Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Log Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Configuration Server' $last='Config' ($name=~/$last/i)=1
Start Remaining Standard Services:
Use of uninitialized value $last in regexp compilation at regextest.pl line 27.
  Starting $name='OP Data Server' $last=undef ($name=~/$last/i)=1
Use of uninitialized value $last in regexp compilation at regextest.pl line 28.
Start General Services:
Use of uninitialized value $last in regexp compilation at regextest.pl line 38.
  Starting $name='OP Monitor' $last=undef ($name=~/$last/i)=1
Use of uninitialized value $last in regexp compilation at regextest.pl line 39.
Installation completed

C:\PerlProjects\Monks>perl regextest.pl asdf asdf
Start Basic Standard Services:
  Starting $name='ONC RPC PortMapper' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Time Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Log Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Configuration Server' $last='Config' ($name=~/$last/i)=1
Start Remaining Standard Services:
Use of uninitialized value $last in regexp compilation at regextest.pl line 27.
  Starting $name='OP Data Server' $last=undef ($name=~/$last/i)=0
Use of uninitialized value $last in regexp compilation at regextest.pl line 28.
Use of uninitialized value $last in regexp compilation at regextest.pl line 27.
  Starting $name='OP Calculation Server' $last=undef ($name=~/$last/i)=0
Use of uninitialized value $last in regexp compilation at regextest.pl line 28.
Use of uninitialized value $last in regexp compilation at regextest.pl line 27.
  Starting $name='OP OPC Client' $last=undef ($name=~/$last/i)=0
Use of uninitialized value $last in regexp compilation at regextest.pl line 28.
Start General Services:
Use of uninitialized value $last in regexp compilation at regextest.pl line 38.
  Starting $name='OP Monitor' $last=undef ($name=~/$last/i)=0
Use of uninitialized value $last in regexp compilation at regextest.pl line 39.
Use of uninitialized value $last in regexp compilation at regextest.pl line 38.
  Starting $name='OP Mover' $last=undef ($name=~/$last/i)=0
Use of uninitialized value $last in regexp compilation at regextest.pl line 39.
Installation completed

##</code><code>##

sub startStandardServices {
    my $last = shift;
    $last //='EVERYTHING'; #ADDED

sub startGeneralServices {
    my $last = shift;
    $last //='EVERYTHING';  #ADDED

##</code><code>##


C:\PerlProjects\Monks>perl regextest.pl
Start Basic Standard Services:
  Starting $name='ONC RPC PortMapper' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Time Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Log Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Configuration Server' $last='Config' ($name=~/$last/i)=1
Start Remaining Standard Services:
  Starting $name='OP Data Server' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP Calculation Server' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP OPC Client' $last='EVERYTHING' ($name=~/$last/i)=0
Start General Services:
  Starting $name='OP Monitor' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP Mover' $last='EVERYTHING' ($name=~/$last/i)=0
Installation completed

<c>
C:\PerlProjects\Monks>perl regextest.pl asdf asdf
Start Basic Standard Services:
  Starting $name='ONC RPC PortMapper' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Time Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Log Server' $last='Config' ($name=~/$last/i)=0
  Starting $name='OP Configuration Server' $last='Config' ($name=~/$last/i)=1
Start Remaining Standard Services:
  Starting $name='OP Data Server' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP Calculation Server' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP OPC Client' $last='EVERYTHING' ($name=~/$last/i)=0
Start General Services:
  Starting $name='OP Monitor' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP Mover' $last='EVERYTHING' ($name=~/$last/i)=0
Installation completed