#!/usr/bin/perl 
use warnings;
use strict;

print "Enter a search pattern.\n";
my $info=<STDIN>;
chomp($info);
if ( $info =~ m/\w+/ ) {
    system("dir $info");
}
else {
    print "You didn\'t enter text.\n";
}