#!usr/bin/perl

my $sentence = " he PP
	 study VB
	 A~~~language~A NP
	 and CC
	 play VB
	 A~~~game~A NP
	 .";
	 
	 
while ($sentence =~ m/(.*?)A~~~(.*?)~A/sg) {
	my $before_marker = $1;
	my $marker = $2;
	print "Before marker is: $before_marker\n";
	print "The marker is: $marker\n\n";
	
	# Do stuff with $before_marker and $marker
}

##</code><code>##

Before marker is:  he PP
	 study VB
	 
The marker is: language

Before marker is:  NP
	 and CC
	 play VB
	 
The marker is: game