#!usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

while (my $line =<DATA>)
{
   chomp $line;
   print "line = $line\n";
   my $tokens =(my $first, my @rest)= split 'x',$line,-1;
   print "num tokens is: $tokens\n";
   print Dumper $first, \@rest;
   print "\n";
}

=prints
line = 1212123x534534534534xx4545454x232322xx
num tokens is: 7
$VAR1 = '1212123';
$VAR2 = [
          '534534534534',
          '',
          '4545454',
          '232322',
          '',
          ''
        ];

line = 0901001x876879878787xx0909918x212245xx
num tokens is: 7
$VAR1 = '0901001';
$VAR2 = [
          '876879878787',
          '',
          '0909918',
          '212245',
          '',
          ''
        ];

line = 1212123x534534534534xx4545454x232323xx
num tokens is: 7
$VAR1 = '1212123';
$VAR2 = [
          '534534534534',
          '',
          '4545454',
          '232323',
          '',
          ''
        ];

line = 1212133x534534534534xx4549454x232322xx
num tokens is: 7
$VAR1 = '1212133';
$VAR2 = [
          '534534534534',
          '',
          '4549454',
          '232322',
          '',
          ''
        ];

line = 4352342xx23232xxx345545x45454x23232xxx
num tokens is: 11
$VAR1 = '4352342';
$VAR2 = [
          '',
          '23232',
          '',
          '',
          '345545',
          '45454',
          '23232',
          '',
          '',
          ''
        ];

=cut


__DATA__
1212123x534534534534xx4545454x232322xx
0901001x876879878787xx0909918x212245xx
1212123x534534534534xx4545454x232323xx
1212133x534534534534xx4549454x232322xx
4352342xx23232xxx345545x45454x23232xxx