can anybody please explain the following search script
'^-{28,28}(.*) (\d+) (\d+):(\d+):(\d+)(.*)-{28,28}$';
Instead of directly explaining this regular expression, I would suggest you to go through the following links to understand regex better.
RE-Perldoc RE-Perl