my $pat = '^x.*d$';

my $dir = '/etc/inet.d';

if ( $dir =~ /$pat/xmsg ) { 

    print "found ";

}

how to make it sucess