#!/usr/bin/perl use strict; my $pattern = qr/Latest \d+ Items in / . qr/Feed & \d New Fetched items/; while () { print if /$pattern/; } __DATA__ Latest 29 Items in Feed & 0 New Fetched items Testing Latest 28 Items in Feed & 0 New Fetched items Latest 100 Items Latest 28 Items in Feed & 0 New Fetched items