#!/usr/bin/perl

 

use strict;

use warnings;



my $x = '12aba34ba5';

my @num = split/[a-b,A-Z]/, $x;

print "$num[$_],\n" foreach (0..$#num);

print"-------\n";

@num = split/([a-b,A-Z])/, $x;

print "$num[$_],\n" foreach (0..$#num);


##</code><code>##

@num = split/(?:[a-b,A-Z])/, $x;

print "$num[$_],\n" foreach (0..$#num);


##</code><code>##

@num = split/[a-b,A-Z]/, $x;
print "$num[$_],\n" foreach (0..$#num);