#!/usr/bin/perl

# http://perlmonks.org/?node_id=1177327

use strict;
use warnings;

my $prefixlength = length '/Volumes/WD/Not Migrating/Music/';

while(<DATA>)
  {
  substr $_, 0, $prefixlength, '';
  my $indent = tr#/##;
  print "  " x $indent, "* $_";
  }

__DATA__
/Volumes/WD/Not Migrating/Music/Ana Tijoux
/Volumes/WD/Not Migrating/Music/Ana Tijoux/Luchin
/Volumes/WD/Not Migrating/Music/Ana Tijoux/Luchin/Luchin.m4a