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

##</code><code>##

<. < > / < >>

##</code><code>##

while(<DATA>){
/http:\S*[^\w\s]/g and s/\G\n//;
print;
}
__DATA__
there is an http://whatever.com/address/
crossing/line/boundaries.html right in the
middle of this nice string.