if( $line =~ /^Subject: `(.*)`/ ){
        system(`$1`);
        last
    }