package Lame;

use 5.010;

use warnings;
use strict;

my $rx_Z  = qr{ (?<! [[:alpha:]]) Z \s* = \s* (?{ 'Z'  }) }xms;
my $rx_XP = qr{ (?<! X)           XP (?! P)   (?{ 'XP' }) }xms;

my $n_XP = 0;

my %dispatch = (
  'Z'  => sub { my ($n) = @_;  return $n * 5;       },
  'XP' => sub { ++$n_XP;       return qq{ ($n_XP)}; },
  );

sub parse {
  my ($sr_s) = @_;
  $$sr_s =~ s{ (?| $rx_Z \K (\d+) | $rx_XP \K) }
             { $dispatch{$^R}->($1, $2, $3, $4, $5, $6, $7) }xmseg;
  }

1;