my $basename = ( split /[:\/\\]/, $_ )[-1];