sub do {
    chomp;
    my $input = $_;
    $input = shift;