my ($var1) = 'stuff_to_cut_out_with_substr_FOO';
my ($var2) = 'stuff_to_cut_out_with_substr_BAR';
my ($var3) = 'stuff_to_cut_out_with_substr_LOST';

if (/foo/) {
$var1 = substr($_, 8);
} elsif (/bar/) {
$var2 = substr($_, 7);
} elsif (/lost/) {
$var3 = substr($_, 5);
}

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