Yours:
    $line =~ /^$/ or chomp ( $line );
Mine:
    chomp $line if $line =~ /\S/;