#!/usr/bin/perl -w
use strict;
 
"where are you?" =~ /(\w+)\W+(.*)/;
print "\$1 is $1, \@- contains $-[0], $-[1], $-[2]\n";
print "\$2 is $2, \@+ contains $+[0], $+[1], $-[2]\n";

##</code><code>##

$1 is where, @- contains 0, 0, 6
$2 is are you?, @+ contains 14, 5, 6