in reply to Question: File name pattern match using Grep function

alternatively use 
my $file_mask='\.txt';

[download]
to avoid interpretation of the '\'. Please note the different quotes.

In Section Seekers of Perl Wisdom