#!/usr/bin/perl -wl

    print "aaa";

    {
        local $\;
        print "bbb";
    }

    print "bbb";
    print "ccc";

    __END__
    Prints:

    aaa
    bbbbbb
    ccc