#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $A="abc\ndef\nghi\n";
my @list = split /\n/,$A;
while (<@list>) {
  ! /def/ and print
}