Select Code to Download

open PIPE, "-|", "/usr/bin/tail", "-f", "$perf_logfile"
   or die "could not start 'tail' on $perf_logfile: $!";

while (<PIPE>) {
    if ( $_ =~ /(Some pattern)/i ) {
...
    }
}
close PIPE;