perl/sosper.pl

add first filter