Mine

#!perl -w

#$_=123456;
$winner = $ARGV[0];
chomp($ARGV[0]);
my ($n1, $n2, $n3) = split(/\d\d/g, $winner);
print "n1($n1) n2($n2) n3($n3)\n";