use strict;

my $target="$ARGV[0]";
my @M4;
@M4 = glob('M4_${target}_*');
print STDOUT "the files in M4 are @M4";