Shell Programming and Scripting

print "Enter a pattern: (must be in [])";
$input = <STDIN>;

if (The input is in [] and valid wildcard pattern)
{
list all the files with the inputted pattern;
}

else
{
print "invalid input";
}

$ cat test.pl
print "Enter a pattern: ";
$ext = <STDIN>;
@list = <*.$ext>;
foreach (@list)
{
    print $_;
}

$ perl test.pl
Enter a pattern: txt
A.txt
B.txt
b.txt
Characters.txt
CPU_VALUE.txt
empty.txt
FC1-original-input.txt
FC1.txt
FC2-original-input.txt
FC2.txt
input.txt
replace.txt
swap.txt
test.txt
xyz.txt