#! /usr/bin/perl -w
-use diagnostics;
use strict;
use Getopt::Long;
last;
}
-usage unless defined @params && $#params >= 0;
+usage unless @params;
# Eek. This matches the next (optionally double-quoted) string on the line.
my $stringre = qr/\s*("(?:[^\\]|\\.)*?"|(?:[^\\]|\\.)+?)(?:\s|$)/;