elsif ($ARGV[0] =~ m/^-r$/){ $option = shift @ARGV; &doit($_) for ; }