my @a = qw( a x z );
{
  local $" = "";
  while (<>) {
    print if /^[@a]{3}$/;  # /o might be good, too
  }
}