#!/usr/bin/perl
use strict;
use warnings;
use Perl6::Form;

my @modules = <DATA>;

for (@modules) {
	my ($tables, $count, $count2, $text) = split;
	print form "{<<<<<<<<<<} {>>>>>}  {>>} {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[}",
				$tables,     $count, $count2, $text;
}

__DATA__
ip_tables               9688  3 iptable_mangle,iptable_nat,iptable_filter
x_tables                8964  17 xt_CONNMARK,xt_length,xt_tcpudp,ipt_dscp,ipt_ipp2p,xt_connmark,ipt_multiport,xt_state,ipt_TOS,xt_CLASSIFY,ipt_ACCOUNT,ipt_MASQUERADE,ipt_REDIRECT,ipt_REJECT,ipt_LOG,iptable_nat,ip_tables
sch_htb                14464  0
sch_sfq                 4992  0
ppp_async               8192  0
crc_ccitt               2048  1 ppp_async
ppp_synctty             6912  0
ppp_generic            21140  2 ppp_async,ppp_synctty