Perl formats

Reasons to love Perl, part whatever. The following script takes in input that looks like

ID  WorkId  Date
1   2       12-10-2009
2   16      01-01-2008

(Fields are tab formatted)

and prints out:

+-----+----------+---------------+
|ID   |WorkId    |Date           |
+-----+----------+---------------+
|1    |2         |12-10-2009     |
+-----+----------+---------------+
|2    |16        |01-01-2008     |
+-----+----------+---------------+

How many lines would it take in some other languages? Perl needs this many:

It's that easy to transform input to almost any output, it's obviously trivial to do calculations on fields, change their orders etc as well. And you can also define headers, print page numbers, define page widths and so on easily as well.