perlに関係ないような気がするけど、こういう意味じゃないの？
if (情報1にヒット) {
　　print 情報1;
　　print 情報2;
}