#!/usr/bin/perl

$boca = ""; #digits to fuck with

$boca =~ s/ //g;
$boca =~ s/(\d)/"$1",/g;

print $boca;