Help for this page

Select Code to Download

Select or download this

$\ = "\n";

...

print $dn =~ /\w/ ?1:0;   # 0
print $up =~ /\w/ ?1:0;   # 1