my $file_pattern  ="*.txt";
$file =~ /$file_pattern/;