#!/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";