#!/usr/bin/perl while (<>) { print "\dicentry{"; s/;/\}\{/g; s/\n/\}\n/g; print; }