#!/usr/bin/env perl
use strict; use warnings;
use Routes::Tiny;
use Data::Printer;

my $r = Routes::Tiny->new;

$r->add_route('/item/(:id)-(:name)-(:section).html',
    constraints => { section => qr/^[^\-]+$/, id => qr/^\d+$/ }
);

my $m = $r->match('/item/6558-Nikon-Coolpix-S3100-Black-info.html');

p $m;