use strict; 
use warnings;

my $input_temp = <<TXT;
MIG 1 2 99 888 DOC /
TXT

if ($input_temp =~ /^.*((MIG|ERR|DOC)+.*)$/i) {
    print 
        '$1: ', $1, "\n", 
        '$2: ', $2, "\n";
}