my $line = "0010+2+O?'Reilly'";
my @fields = ($line =~ /(.*?)[\+']/g);  
my $i = 0;
map { print "[" . $i++ . "]$_\n" } @fields;