{
    # localized global variable
    # this copy of $/ is visible only within this block
    # and to subroutines called from within the block.
    local $/ = "\r\n";
    while (<I>) {
        next unless /Physical Address/;
        /:/;    # why is this here?
        chomp;  # chomp now removes "\r" in addition to "\n"
        ...
}