Minor correction: Replace "get_lines" with "getlines".

use IO::File;
my $line = -f $file and grep { ... } IO::File->new($file)->getlines;