$ perl -Te'
    my $fn = $ARGV[0];
    ($fn) = $fn =~ /^([a-zA-Z0-9]{1,8}\.txt)\z/ or die;
    open(my $fh, ">", $fn) or die;
    printf $fh "%s\n", "foo";
' foo.txt

$ cat foo.txt
foo