thanks to Jonas Hörsch we have now a decent perl expression