#! perl -slw
use strict;
use time::HiRes qw[ time ];
use POSIX qw[ _exit ];
use List::MoreUtils qw/any/;

print time;
my @a = any {$_== 92} 1..100000000;
print time;

print @a;
print time;

_exit(0);