$/ = sub {
  my ($line) = @_; 
  $line =~ m{Separator\s+\d+};
};