in reply to grep for numbers

Another solution... 

#!/usr/bin/perl

use strict;

while( <DATA> ) {
    print "ci=$1" if /ci=(\d+)/;
}

__DATA__
<body onunload="params='s=o&n=o&ci=5413226&iv=0&pi=34&sessid=c1e7be2e5
+d3518213a67577cf5b2b1c4bd0a0619&uuid=c1e7be2e5d3518213a67577cf5b2b1c4
+bd0a0619&prt=1238476904&pgtp=article&eagi=&t_v=v&">

[download]

In Section Seekers of Perl Wisdom