Every time we parse some data we also potentially create a new mini-language; even something as simple as this could qualify:

  my @countries = map {
    chomp;
    my($isocode, $name) = unpack "A2xA*", $_;
    Country->new($name, $isocode)
  } <DATA>;
  __DATA__
  AD ANDORRA
  AE UNITED ARAB EMIRATES
  AF AFGHANISTAN
  AG ANTIGUA AND BARBUDA
  ...
[download]

.. but I see (and create) more complex examples all the time.

Hugo