my $path;
while ( <LOGIN> ) {
    chomp;
    if ( s|\\$|| ) {
        $_ .= <LOGIN>;
        redo;
    }
    if ( /^\s*(export)?\s+PATH=(.*)/ ) {
        $path .= ':' if $path && substr($path, -1, 1) ne ':';
        $path .= $2;
    }
}