Select Code to Download

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

<. < > / < >>

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