
Problems? Is your data what you think it is?
	PerlMonks

Your Mother's scratchpad

by Your Mother (Archbishop)

on Jun 01, 2004 at 23:15 UTC ( [id://358778]=scratchpad: print w/replies, xml )

Need Help??

Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

sub cap_ratio {
    local $_ = shift || return 0;
...
__END__
O HAI, cn u plEAZ hHELPS ME? I IZ CAT.
77%

Select or download this
```
use strict;

...
Hope it works

=cut
```
Select or download this
```
<html>
 <head>
...

</body>
</html>
```

Select or download this

(?:(?:\r\n)?[ \t])*(?:(?:(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\
+n)?[ \t]
)+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t]))
+*"(?:(?:
\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]
++(?:(?:(
...
+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t
+])*)(?:.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:
+\r\n)?[ \t])+|\Z
|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t])*)
+)*\>(?:(
?:\r\n)?[ \t])*))*)?;\s*)

Domain Nodelet^?

www.com | www.net | www.org

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others meditating upon the Monastery: (3)

As of 2024-04-18 23:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found