#!/usr/bin/perl
use warnings;
$in = $ARGV[0];
@vals = split(/../, $in);
print @vals;