# build regular expression from command line args
my $re;
foreach my $arg (0 .. $#ARGV){
        if($arg == $#ARGV){
                $re .= "/(\\x01.?$ARGV[$arg].?\\x01)/";
        }else{
                $re .= "/(\\x01.?$ARGV[$arg].?\\x01)/&&";
        }
}
while (<STDIN>){
        if($re){
                print "$_\n";
        }
}

print "equivalent grep: grep -P \"$re\"\n";