#!/usr/bin/perl
use strict;
use warnings;

print "First_name Last_name\n";

foreach my $file (@ARGV) {
        open(FILE, "<$file");

        if( $file eq "file1" ) {
                $file="sysbacks/file1";
        } elsif ( $file eq "file2" ) {
                $file="alpha/file2"
        } elsif ( $file eq "file3" ) {
                $file="gamma/blue/file3";
        } elsif ( ($file eq "file4") || ( $file eq "file5" ) ) {
                $file="gamma/green/$file";
        }

        open(OUTPUT, ">$file");

        while(<FILE>) {
                s/xxx/ggg/gi;
                s/alpha/ALPHA/g;
                print OUTPUT;
        }

        close(FILE);
        close(OUTPUT);
}