#!/usr/bin/perl

$/='Dance with Debbie';
open(FILE,"$filename");
@lines = <FILE>;
close(FILE);

print $lines[-1];