cp some-long-filename{,.bak}

##</code><code>##

perl -e 'print grep -f, <x.>'