3
# check basic regex capabilities
9
'abc' ~~ /abc/ and say 'ok 1';
10
'2' ~~ /^ \d+ $/ and say "ok ", $/;
13
'012a456' ~~ $rx and say 'ok 3';
17
$l ~~ $r and say 'ok 4';
18
5 ~~ $r and say 'ok 5';
19
'5' ~~ $r and say 'ok 6';
20
'25' ~~ $r or say 'ok 7';
23
$l ~~ $r and say 'ok 8';
24
5 ~~ $r and say 'ok 9';
25
'5' ~~ $r and say 'ok 10';
26
'25' ~~ $r and say 'ok 11';