#! /usr/bin/perl -slw

use strict;
use Regexp::Assemble;

my $needs = Regexp::Assemble->new->add( qw[ FILE INFO ] );
my $has   = Regexp::Assemble->new->add( qw[ FILE INFO SYSLOG ] );

while( defined( $_ = <DATA> )) {
    chomp;
    if( /($needs)/ ) {
        print $needs->as_string;
    }
}
while( defined( $_ = <DATA> )) {
    chomp;
    if( /($has)/ ) {
        print $has->as_string
    }
}

__DATA__
FILE
INFO
SYSLOG