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