use strict; use warnings; my $MODULE_NAME = 'MODULE C17 (N1, N2, N3, N6, N7, N22, N23)'; if (defined($MODULE_NAME) && ($MODULE_NAME =~ / ^ (.+) \s+ \( /x)) { my $module_name = $1; print "Module name = >$module_name<\n"; }