# fontinst.pl foreach $file (<*.pl>) { ($filename) = $file =~ /(\w+)\.pl/; system("pltotf $file $filename.tfm"); } foreach $file (<*.vpl>) { ($filename) = $file =~ /(\w+)\.vpl/; system("vptovf $file $filename.vf $filename.tfm"); }