:bike: perl5 bob - using shift directly in regex expressions removing need for the short lived local variables.