open my $fh, "<", "/dev/urandom" or die "$!";
my @a = grep /huh, whaddayamean/, <$fh>;