my $w="12_12rrr_p3 4";
my $x="p3 4";

#print $w;
if($w =~ /(12_12rrr_)$x/xs)	{
				print "ok: " .$1;
			
				}
				else {print "no";}