Help for this page

Select Code to Download

Select or download this

if ($file =~ /\.txt\z/) {
   print("Match\n");
} else {
   print("No match\n");
}

Select or download this

my $file_pattern = '.*';

...
} else {
   print("No match\n");
}