in reply to Capture Spaces

From the Parse::RecDescent perldocs'
# Change the universal token prefix pattern # (the default is: '\s*'): $Parse::RecDescent::skip = '[ \t]+';
So in this case adding something like:
$Parse::RecDescent::skip = '';
Will produce the results you wanted based on the sample data.