kamil

#!/usr/bin/perl -wuse 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;    }}