if ($input_temp =~ /^.*((MIG|ERR|DOC)+.*)$/i)
if ($input_temp eq '')
1 2 3 4 5 6 7 8 9 10 11 12
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"; }
print "\n".$input_temp;
2014-11-10T08:02:12 bob.georgeIn diesem Zusammenhang ist mir aufgefallen, wenn $input_temp leer ist, steht in $1 eine ")".