Select Code to Download

    $triplets{$_} = [unpack("x$_ (a3)*", $line)];

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/