while (<>) {
    s/print(.*?)\\n("\)?;)/say$1$2/;
    s/(say.*?)[.,]\s*""(\)?;)/say$1$2/;
    print;
}