Help for this page
#!/usr/bin/perl -p ... s/\s+\|/\|/g; s/(\d{2}:\d{2}:\d{2})\.\d+/$1/g; s/(\d{5})-(?:\d{1,4}|\s+)/$1/;
my_scriptydoo.pl file1 > file2