#!perl

use strict;
use warnings;
use open qw( :encoding(UTF-8) :std );

while (my $record = <>) {
    chomp $record;

    if ($record =~ m/^(pd\.\d+),([^,]+),([^,]+)$/) {
        my ($field1, $field2, $field3) = ($1, $2, $3);

        print "$field1\n";
        print "$field2\n";
        print "$field3\n";
    }
}

exit 0;