#! /usr/local/bin/perl -w
use Regexp::Assemble;
my $ra = Regexp::Assemble->new->add(
    'Error 123 on SystemA file not found error', 
    'Error 123 on SystemB file not found error', 
    'Error 123 on SystemC file not found error'
);
print $ra->re;