(my $path = $str) =~ s{$name}{};