print is_num($|), "\n"; # 0 $|=1; print is_num($|), "\n"; # 0 print 1 | "A", "\n"; print "1" | "A", "\n"; print $| | "A", "\n"; # Acts as if $| is numeric