Select Code to Download

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

[0]0010
[1]2
[2]O?
[3]Reilly

[0]0010
[1]2
[2]O'Reilly