my $aufruf = pop(@ARGV);
if ( $aufruf =~ /-s/i ) {
....
....