#!/usr/bin/perl use strict; while( ) { print "ci=$1" if /ci=(\d+)/; } __DATA__