Example for using "I18N::LangTags"

langtags.pl

#!/usr/bin/env perl

$| = 1;

use warnings;
use strict;
use Data::Dumper;
use I18N::LangTags qw/ :ALL /;
use I18N::LangTags::List;

my $line;
while ( $line = <STDIN> ) { 
    chomp $line;
    print Dumper( map { $_ if I18N::LangTags::List::is_decent( $_ ) } ( extract_language_tags( $line ) ) );
}