$_='o.ne<a>tw/o<b>';
@punks = /[^\w\s]/g;
print "<@punks>";