I suspect that you've got an extra set of parentheses around the last two capturing groups of the regex in your production code that's usurping $4: my $regexp = '(\d{4})(\d{2})(\d{2})\s*((\d{2})(\d{2}))';

Edit: oops - identical response to cdarke's - you have to be quick around here :)