Select Code to Download

Select or download this
```
unless(/^([\w.-]) \s+ ([\w.-])$/x) {
```
Select or download this
```
unless(/^([\w.-]+) \s+ ([\w.-]+)$/x) {
```

<code>
unless(/^([\w.-]) \s+ ([\w.-])$/x) {
</code >    (without this extra space)

Select or download this

        unless(/^([\w.-]+) \s+ ([\w.-]+)$/x) {
                print STDERR "$_ is not a valid line";
...
                next;
        }
        rename $old, $new;

Select or download this

system("mv $new /var/save/$subfolder_name");

Select or download this
```
#!/usr/bin/perl -wT
```

Select or download this

#!/usr/bin/perl -wT
use strict;
...
unless(move("$new", "/var/save/$subfolder_name")) {
       print STDERR "Oops!  Couldn't move the file: $!";
}

Select or download this

Create backup directory

...
end for

send message saying everything worked.