#!/usr/bin/perl

use strict;
use warnings;

my @test   = ('md1', 'md2', 'md3', 'md4');
my $test2  = "";
my @test3  = ();

foreach my $line (@test) {
        if ($line =~ /md/) {
                push @test3, $line;
        }
}

printf @test3;