incolla 2, 3 righe di esempio.

Ritengo che si possa fare in qualunque linguaggio di programmazione, ma in Perl credo sia più semplice.