Returning multiple values
my
@words
=
map {
split
/
\s+
/
,
$_
}
<STDIN>
;
or:
my
@words
=
map {
/
(\w+)
/g
}
<STDIN>
;