open R, "file" or die "could not open file\n";

while (<R>) {
        my @lines = split (/\n/);
        foreach my $line (@lines){
                next if $line !~ /xml:lang/xg;
                my ($junk, $lang) = split /=/, $line;
                $lang =~ s/^"(.*)">$/$1/;
                print "$lang \n";
        }
}