#!/usr/bin/env perl6
use Test;

my %sigils =
    bang   => '!', at      => '@', hash  => '#',
    dollar => '$', percent => '%', caret => '^',
    and    => '&', star    => '*', zero  => '0';

my regex line {
    ^^ :my $s; (\w+) <?{ $s = %sigils{$0} }> \h+ $s (\N*) $s $$
}

is  ('bang !one!' ~~ m/<line>/)<line>[1],     'one', 'is   bang!one';
is  ('zero 0one0' ~~ m/<line>/)<line>[1],     'one', 'is   zero0one';
isnt 'bang @one@' ~~ m/<line>/ && $<line>[1], 'one', 'isnt bang@one';
isnt 'BONK !one!' ~~ m/<line>/ && $<line>[1], 'one', 'isnt BONK!one';
nok  'bang @one@' ~~ m/<line>/, 'mismatch fails';
nok  'BONK !one!' ~~ m/<line>/, 'unknown fails';