I agree with perrin that making code easy to read and understand is more important than making them short.

Sometimes making code short does make it easier to read and understand, but not always. In some cases, making code shorter may make it easier to read while you are actively working on it but it may be harder for others, or yourself when you return to it after some time.

Perl is a free-form language, so one can put anything and everything on one line. I sometimes put multiple statements on one line and sometimes split a long statement across multiple lines, both to improve readability.

I would make only a slight change to perrin's recommended solution - changing the delimiters on the re to avoid the escapes (tested (on linux)):

print ($File::Find::name =~ m!^/some/path/prefix/(.*)$!i);
[download]