$str = "what's up, doc?";
for (split /(\W+)/, $str) {
  print "<$_>\n";
}
__END__
<what>
<'>
<s>
< >
<up>
<, >
<doc>
<?>