$input_dir =~ s{^\.\./}{/};

##</code><code>##

use File::Spec::Functions qw/splitdir updir catdir/;
my @input_dir = splitdir $input_dir;
shift @input_dir if $input_dir[0] eq updir;
$input_dir = catdir(@input_dir);
# $input_dir is now "set/projects/all/files"