I agree, far too much code - 3 lines where one will do

sub check {
    grep{/^\Q$_[0]\E$/}qw/Recruit General Captain Civilian Airman/ ? W
+elcome() : NotWelcome();
}
[download]

or perhaps that was not what you meant... ;-)

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print