#!/bin/bash
for name in $*
do
echo "file $name was originally:"
strings $name |tail -2 | head -1| perl -e '$a = <> ; @a=split /\\/, $a; $a[0] = substr($a[0],-3); substr ($a[1],-4) = ""; print $a[1],$a[0],"\n";'
done