or download this
$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* 12
+22379639 1 65537 0 0 0 0 0 0 0";
...
#print "FRAG RECORD NOT MATCHED => $record \n";
}
} #if($record =~ m|FRAG|)