list timemachine copies of a file

lbk.sh

#!/bin/bash

bkdir=
while [[ -n "$1" ]]; do
    cd $(dirname "$1")
    realpath=$(pwd -P)
    case "$realpath" in
       /Volumes/*)
            realpath=${realpath:9}
            ;;
        *)
            realpath="$realpath"
            ;;
    esac

    ls -id /Volumes/*/Backups.backupdb/*/20*/*"$realpath/$(basename "$1")" | perl -nle 'if (/^\s*(\d+)\s(.*)/ && !$x{$1}++) { print $2; }'
    shift
done