# XHTML 1.0 Transitional Compliance

Ovid poec at yahoo.com
Wed May 29 13:41:17 CDT 2002

```--- Joshua Keroes <joshua_keroes at eli.net> wrote:
> > "Ovid" on http://www.perlmonks.org/
> > Someone asked me how to count to 10 in Perl:
> > push at A,\$_ for reverse q.e...q.n.;for(@A){\$_=unpack(q|c|,\$_);@a=split//;
> > shift at a;shift at a if \$a[\$[]eq\$[;\$_=join q||, at a};print \$_,\$/for reverse @A
>
> Hey mang, one of these days you have to show us how to count to 11.
>
> -J

\$_ ='push at A,\$_ for reverse q.e...q.n.;for(@A){\$_=unpack(q|c|,\$_);@a=split//;
shift at a;shift at a if \$a[\$[]eq\$[;\$_=join q||, at a};print \$_,\$/for reverse @A';
s/\.n/.o/;
eval;

Cheers,
Curtis "Ovid" Poe

=====
"Ovid" on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push at A,\$_ for reverse q.e...q.n.;for(@A){\$_=unpack(q|c|,\$_);@a=split//;
shift at a;shift at a if \$a[\$[]eq\$[;\$_=join q||, at a};print \$_,\$/for reverse @A

__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
TIMTOWTDI

```