#=====================================================================
0 and eval('false') and length <<2;
"""  #"
2
BEGIN{ 0 or eval('package _TMP; use Filter::Simple sub {
  my $wipe = sub { my $x="$1"; $x=~ tr/\n/ /c; $x };
  s{^(.*?\n__Perl_code__[^\n]*)}{&$wipe($1)}se;
  s{(\n__Python_code__.*?\n#____END____[^\n]*)}{&$wipe($1)}se;
  }; import _TMP; undef(%_TMP::);'); }
#=====================================================================

def hello()
  print "Hi there ruby!\n";
end
hello();

#=====================================================================
__Perl_code__ = <<'#____END____';
#=====================================================================

sub hello {
  print "Hi there perl!\n";
}
hello();

#=====================================================================
__Python_code__ """  #"
#=====================================================================

def hello() :
  print "Hi there python!"
hello();

#=====================================================================
#____END____
#=====================================================================