Select Code to Download

   elsif ( $toto =~ /-s=(\w+)/ ) {
       print smstype($toto);
   }

sub smstype {
    # Using uc() will allow the user to enter lowercase letters too
...
    }
    return $sms;
}