perl script to copy a channel excerpt

• perl script to copy a channel excerpt

• • while (<>) {
  • if (/([0-9]*) (..) ([0-9]*)/o) {
  • $ms = $1;
  • $cmd = $2;
  • $chan = $3;