while(<>){
	
	@_=/./g;	print "@-|@+\n";
	()=/./g;	print "@-|@+\n";
	   /./g;	print "@-|@+\n";
	  (/./g);	print "@-|@+\n";
	()==/./g;	print "@-|@+\n";
	$_[/./g];	print "@-|@+\n";
	   /./g;	print "@LAST_MATCH_START|@LAST_MATCH_END\n";
	}