$record = "FRAG 1 1 2000000 0 0 0 0 \\\\172.20.13.49\\backup\\rbgmst02_dd2\\stu1\\CPOSTA_1221170039_C1_F1 rbgmst02 65536 0 0 -1 0 *NULL* 1222379639 1 65537 0 0 0 0 0 0 0";

if($record =~ m|FRAG|)
{
	if($record =~ m|([A-z0-9]+[_][0-9]+[_]C[0-9]+[_][A-z0-9]+)|)
	{
		#print $2."\n";
		push(@netbck_list,$1);

		print $1."\n";

	} #if($record =~ m|FRAG(.*?)\/([A-z0-9_-]+[_][0-9]+[_]C[0-9]+[_][A-z0-9]+)|)
	else
	{
		#print "FRAG RECORD NOT MATCHED => $record \n";
	}
} #if($record =~ m|FRAG|)