#!/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;

##</code><code>##

# put these in your .bashrc
alias addhist="history 2 | addhist.pl"
alias readhist="history -r ~/.oneliners"

$ perl -wle'something short and useful'
$ addhist
[hours or days later...]
$ readhist
$ !! # will get you your last saved oneliner from above