Select Code to Download

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

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