my @words;
my @parts_of_speech;
while(my $sentence = <DATA>) {
    @words = ();
    @parts_of_speech = ();
    while ($sentence =~ /(\w+)\/(\w+)/g ) {
        push(@words, $1) if $1;
        push(@parts_of_speech, $2) if $2;
    }
    print $_, " " for @words;
    print $_, " " for @parts_of_speech;
    print "\n";
}

##</code><code>##

print "@words @parts_of_speech\n";