my $input = ":seraphim!seraph\@Testserver-3A93D94C PRIVMSG Prsc :remove 127.0.0.1\r\n";
my @line = split ' ', $input;
chomp @line;
local $/ = "\r";
chomp @line;

my $search = $line[4];

my @file = ("line1\n", "127.0.0.1\n");
for my $x (@file) {
    chomp $x;
    if ($x ne $search) {
        print "($x)\n";
    }
}