$ perl -MPerl6::Form -ne " print form q{{[[[{ 30 }[[[[}} , $_" -
very long string right here ya know
very long string right here ya
know
^Z