use strict; use warnings; my $i; while (<DATA>) { chomp; chop; s/\?'/'/g; $i = 0; map { print '['.$i++."]$_\n" } split(/\+/); } __DATA__ 0010+2+O?'Reilly' 012+90+Penguin'
In reply to Re: Improved regexp sought
by TedPride
in thread Improved regexp sought
by myomancer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |