#!/usr/bin/perl

while (<>) {
 s/\*/.*/g;
 s/\//.\//g;
 s/%e\^-(\(.*\))/exp(-$1)/;
 s/%e\^(\(.*\))/exp/;
 s/\^/.^/g;
 s/$/ .../;
print;
}