regexes?

gistfile1.txt

air:Perl6-Maven gabor$ ack ~~
app.pl
70:		if $file ~~ /\/$/ {
95:		if $file ~~ /tutorial\/(.*)/ {

lib/Perl6/Maven/Page.pm6
29:		if $line ~~ m/^\=(\w+) \s+ (.*)/ {
84:		if $row ~~ /^\<code   (\s+ lang\=\".*\")?   \>\s*$/ {
87:		} elsif $row ~~ /\<\/code\>/ {
91:			$row ~~ s:g/\</&lt;/;
92:			$row ~~ s:g/\>/&gt;/;
95:		if $row ~~ m/^\<include<space>file\=\"(<-["]>*)\"<space>\/\><space>*/ {
103:		$row ~~ s:g/\<hl\>/<span class="label">/;
104:		$row ~~ s:g/\<\/hl\>/<\/span>/;
125:		next if $k ~~ /^<space>*$/;

lib/Perl6/Maven/Slides.pm6
17:		#if $line ~~ /^\- id\: ([\w\-]+)$/ {
18:		if $line ~~ /^\-<space>id\:<space>(.*)/ {
24:		if $line ~~ /^<space>*title\:<space>(.*)/ {
28:		if $line ~~ /^<space>*pages\:/ {
32:		if $line ~~ /^<space>*\-<space>(.*)/ {
36:		if $line ~~ /^<space>*$/ {

lib/Perl6/Maven/Tools.pm6
76:		if $p.IO !~~ :e {
83:	return if $dir.IO !~~ :d;

script/generate.p6
24:	usage('avoid updirs') if $outdir ~~ m/\.\./;
33:		usage("You cannot pass ~ in the path '$dir'") if $dir ~~ m/\~/;