#!/usr/bin/perl
use strict;
use warnings;
my @lines = <>;
pop @lines;
my $hist = join '', @lines;
my $history = "$ENV{HOME}/.oneliners";
$hist =~ s/\A\s*\d+\s+//;
open my $fh, ">>", $history or die $!;
print $fh $hist;
close $fh;