or download this
use warnings;
use strict;
...
my $str = q(<body onunload="params='s=o&n=o&ci=5413226&iv=0&pi=34&sess
+id=c1e7be2e5d3518213a67577cf5b2b1c4bd0a0619&uuid=c1e7be2e5d3518213a67
+577cf5b2b1c4bd0a0619&prt=1238476904&pgtp=article&eagi=&t_v=v&">);
my $num = (split /ci=/, $str)[1] + 0;
print $num;