Perl sed replacement

Gezz.. who let the squirrels into the server room.. there is nutty #$%& everywhere.. so now I have no sed go figure..

ls | xargs perl -ne 'print "$ARGV:$. $_" if m/endl/'