use warnings;
use strict;

if (! defined $ARGV[0]){
    print "Usage: ./script.pl \"multi word quoted string here\"\n";
    exit;
}

my $string = $ARGV[0];

print "$string\n";

__END__

$ ./str.pl "hello, world!"
hello, world!