change per to perl