Select Code to Download

my ($var1) = 'stuff_to_cut_out_with_substr_FOO';
...
my ($path) = $var1 . '/' . $var2 . '/' / $var3
say "$path";

use File::Spec::Functions;
my ($path) = catfile($var1, $var2, $var3);