Answer to http://q.hatena.ne.jp/1271446360

csv.pl

#!/usr/bin/perl

use strict;
use utf8;
use Encode;

open (my $in, '<', 'source.csv') or die $!;
my @csv = <$in>;
close $in or die $!;

my $email = 'example@example.com';
my @data;

for (@csv) {
    my $line = decode_utf8 $_;
    my @column = split /,/, $line;
    push @data, $line unless ($column[0] eq $email);
}

open (my $out, '>', 'output.csv') or die $!;
for (@data) {
    print {$out} encode_utf8($_);
}
close $out or die $!;

__END__

output.csv

source.csv