- grep(s/\|/ /g, @adjs);
- grep(s/\|/ /g, @amts);
- grep(s/\|/ /g, @nouns);
- srand(); # fork seems to not change rand. force it here
- my $adj = @adjs[rand(@adjs)];
+ grep( s/\|/ /g, @adjs );
+ grep( s/\|/ /g, @amts );
+ grep( s/\|/ /g, @nouns );
+ srand(); # fork seems to not change rand. force it here
+ my $adj = @adjs[ rand(@adjs) ];