Select Code to Download

sub write_new_file {
    my ( $fn, $str ) = @_;

    my ($fn, $str_ref ) = @_;
# or $ref_str, $r_str or other possibilities

next if $name =~ /rev\d+\.config$/;
if ($name =~ /\.config$/) {blah..blah}