Someone

use strict;
use warnings;
use File::Find;
#
my $targetdir = $ARGV[0];
# point it at a target directory
my $searchstring = $ARGV[1];
# find files ending in .properties or .assbarn
my $appendage = $ARGV[2];
# give the program the string you want to append to the file's name
find(\&wanted, "$targetdir");
sub append {


print;