Perl6

Perl6

# some comment ....
EN -> value1 
CN -> value2
EN -> value3
CN -> value4
-------------------above is inputfile content

###sample code
my $pattern = "value1";
my @lines = "inputfile".IO.lines;
my ($cn, $en);

for @lines -> $line {	
	# ignore comment line
	if $line ~~ / EN \s '->' $<env> = \s (.*)/ {
		$en = $<env>;
		$line = @lines.shift;
		if $line ~~ / CN \s '->' $<cnv> = \s (.*)/ {
			$cn = $<cnv>;
			
			# when match $cn or $en
			if $cn ~~ $pattern || $en ~~ $pattern {
				# do something
			} 
		}
	}
}