The following code uses readline's use of $/ as the line ender.

{
    # Temporarily set $/.
    local $/ = "This is the temp line.\n";
    <>;
}

while ( <> ) {
    print;
}
[download]

Thanks Roy Johnson for the tip on the spelling error.