sub chomp_all {
    my ($var) = @_;

    my $old = '';

    while ($var ne $old) {
        $old = $var;
        chomp $var;
    }

    return $var;
}