Last command run in current terminal, applescript in Perl

gistfile1.txt

use Mac::AppleScript qw(RunAppleScript);

########################################################################
# work out the line on the command line
########################################################################

my $text = RunAppleScript(<<'END');
  tell application "Terminal"
    tell front window
      history of selected tab as text
    end
  end
END

# strip off any applescript string wrapper
$text =~ s/\A"//x;
$text =~ s/"\z//x;
$text =~ s/\\"/"/gx;
$text =~ s/\\\\/\\/gx;

# doesn't get much more inefficent than this!
my @lines = split /\n/, $text;
my $capture = "";
do {
  $capture = pop(@lines) . "\n" . $capture;
} while ($lines[-1] =~ /\\\z/);