Re: How to make code smaller--saving steps and writing one liners

[perrin]

In general, making things easy to read is more important than making them short. In this case though, I'd agree that you're taking the long way around without a good reason. I'd do something like this (untested!):

print ($File::Find::name =~ m/^C:\/users\/User\/Music\/(.*)$/i);

P.S. Please use strict and warnings!