Hai, Easy in Regexp try

$str = '000000000000022102840002210284';
($a,$b,$c)=$str =~ m#(\d{10})(\d{10})(\d{10})#gsi;
print "$a\t$b\t$c";

or

$s = '000000000000022102840002210284';
($a,$b,$c) = unpack '(a10)*', $s;
print "$a\t$b\t$c";
[download]

Regards,
Gubendran.L