Select Code to Download

#!/bin/perl

use File::Path;

#!/bin/perl
use warnings;
use strict;

use File::Path;

sub removetimestamp() {
  my ($line) = @_;
...
...
sub doLog() {
  my ($msg, $line) = @_;

sub removetimestamp() {
  my ($line) = @_;
...
    return ($time, $line);
  }
}

sub removetimestamp {
  my ( $line ) = @_;
  ( my $time, $line ) = split / /, $line, 2;
}

        my ($time, $data) = removetimestamp($line);
        my ($key, $value) = keyValue($data);

        my ($time, $data) = split / /, $line, 2;
        my ($key, $value) = split / /, $data, 2;