@foo = qw[
    137  # NETBIOS Name Service
    139  # NETBIOS Session Service
    445  # Win2k+ Server Message Block
    1434 # SQL Slammer / Sapphire worm
];

print join ':', @foo;
print "\n";
[download]

137:#:NETBIOS:Name:Service:139:#:NETBIOS:Session:Service:445:#:Win2k+:
+Server:Message:Block:1434:#:SQL:Slammer:/:Sapphire:worm
[download]

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }