cut -f2,5 $1 | perl -pe 's/(...)(.)(....)(....)(..)$/ISBN$1-$2-$3-$4-$5/g' | perl -alne 'print "$F[1],$F[0]"'
# last . is LF