sub get_log_data
{
    my ($fileid, $match) = @_;
    #...

##</code><code>##

sub get_log_data
{
    my ($fileid, $match) = @_;
    local @ARGV = 'logfile';
    return join '', grep { (/$fileid/o .. /\A-{5}/) && /$match/o } <>;
}