in reply to Questions about arrays

Assuming that splitting on spaces is good enough,

  1. my @no_pc = grep {not /^PC/} @rpts;
  2. my @sorted = sort @rpts;
  3. my @modified = map {(split ' ',$_, 3)[2]} @rpts;

    4. After Compline,
    Zaxo

In Section Seekers of Perl Wisdom