sub prematch {
    unpack sprintf("a%d",$-[0]), $_[0];
}

sub postmatch {
    unpack sprintf( "x%d a*", $+[0]) , $_[0];
}

sub match {
    unpack sprintf ("x%d a%d", $-[0], $+[0] - $-[0] ), $_[0];
}