mounted_disks=$(perl -le'$d = shift; print join " ", sort { length( $b ) <=> length( $a ) } map m{/dev/$d} ? (split)[2] : (), qx(mount)' $dest)