perl -MO=Deparse -e '$_=" a b c ";print map {"<$_>"} split'
$_ = ' a b c ';
print map({"<$_>";} split(" ", $_, 0));