Yep theres another solution out there and its File::Spec, part of a fairly standard distribution.

The line wanted is $file_path = File::Spec->abs2rel( $file_path, $path );