Let's decode it using perl 

perl -MO=Deparse perl_is_simple.pl