grum

#!env perl -l

use strict;
use warnings;

my @words = map { chomp; s/\s//; $_ } <DATA>;
print join '', map { splice @words, rand @words, 1 } (1 .. shift || 10);

__DATA__
Strategy