#!/usr/bin/perl -- -w
use strict;
use diagnostics;

my @test = ( '"this is a test"', '"anStr"' );
foreach my $item (@test) {
	print($item, "\n", &jc($item), "\n");
}

sub jc {
	my ($line) = shift;
	my (@parts, $i);

	@parts = split('', $line);
	$parts[0] = '{';
	for ($i = 1; $i < $#parts - 1; $i++) {
		$parts[$i] =~ s/(.)/(byte)'$1',/;
	}
	$parts[$#parts - 1] =~ s/(.)/(byte)'$1'/;
	$parts[$#parts] = '}';

	return(join('', @parts));
}

##</code><code>##

sub jc {
	my ($line) = shift;
	my (@parts, $i);

	@parts= split('', $line);
	(undef) = shift(@parts);
	(undef) = pop(@parts);
	for ($i = 0; $i <= $#parts; $i++) {
		$parts[$i] =~ s/(.)/(byte)'$1'/;
	}

	return('{' . join(',', @parts) . '}');
}