#!/home/ejh/rakudo/perl6

my @temp = ("1234567",
            "7654321");

my $pat  = "123";
my $rpat = "321";


for @temp -> $test {
        print "Testing '$test' - ";
        my $t = $test;
        if $t ~~ s/$pat// or $t ~~ /$rpat/ {
                say "($t) matched";
        }
}