Removed named matching to make code work in Perl < 5.10