eval "\$filename =~ $regex";
die $@ if $@;