Table

#!/bin/perl -w use strict; print "Table\n"; print qq{\n}; while( ) { print '"; } print '

'; print join '

', split /\|/; print "

'; __DATA__ row 1 | 1 | 2 row 2 | 1 | 2 row 3 | 1 | 2