As others have pointed out, this works ‘natively’ on Perl 5.10.0 and later. (I'm not sure when it was introduced, but it wasn't in Perl 5.8.8.) If you can't upgrade, then you might give Regexp::Fields a try.