$ perl -wle'
my $x = "-s";
print "ok" if $x =~ /-s/'
ok