#!/usr/bin/env perl6

use v6;

my $com = "value1 value";
my ($var1, $var2) = parse($com);
say $var1, $var2;
if $var1 !~~ /<$var2>/ { say "KO" };
## yields:
## ｢value1｣｢value｣
## Cannot assign to a readonly variable or a value
##  in block <unit> at 150927-solution_attempt-server-1.pl:8

sub parse($input){
    $input ~~ /^(\w+)\s(\w+)$/;
    my $var1 = $0;
    my $var2 = $1;
    return ($var1,$var2);
}