use warnings; use strict; my $regex1 = '(.*?)\:(.*?)'; my $element1 = 'SETTINGS:Flight'; print "Damn the element1 is $element1 \n"; if ( $element1 =~ m/$regex1/g ) { print "Inside wait for image \n"; } else { print "Inside wait for Text \n"; } __END__ Damn the element1 is SETTINGS:Flight Inside wait for image