#!/usr/bin/perl -w

use File::ReadBackwards;

if (scalar @ARGV != 2)
{
    die "[input_file] [string]";
}

$bw = File::ReadBackwards->new($ARGV[0]) or die "can't read $ARGV[0] $!";

$str = $ARGB[1];

until ($bw->eof)
{
    if ($bw->readline =~ /$str/)
    {
	print $bw->readline;
    }
}