$ find pfad -name "*.pl" -exec perl -pi.bak -e'
s;^#!/usr/bin/perl;#!/usr/lib/perl5/perl; if $. == 1' {} \;