my ($safe_file_name) = $outfile =~ /^(\w+)$/;
if ( !$safe_file_name ) {
    # handle error & exit
)

open my $fh, '>', $safe_file_name;