perl -e 'print((grep/Baki/,<>)[-1])' file.txt