while( <> ) { if( /\Qsid=167216582&ID=1­16\E/ ) { my $nextLine= <>; print $nextLine; } }