#!/usr/bin/perl -lw
$"=",";
$_="20";
@F=split//;
print "@F";