(my $basename = $name =~ s#./##;

##</code><code>##

(my $basename = $name =~ s/.\///;