11 lines
184 B
Perl
11 lines
184 B
Perl
|
while (<STDIN>) {
|
||
|
|
chomp; # strip record separator
|
||
|
|
my @Fld = split(' ', $_, 9999);
|
||
|
|
if ($a && length($Fld[1])) {
|
||
|
|
print "\"$_\",\n";
|
||
|
|
}
|
||
|
|
if (/Friend/) {
|
||
|
|
$a++;
|
||
|
|
}
|
||
|
|
}
|