Select Code to Download

#!/usr/bin/perl -w
use strict;
...
#my $weight = $1;
print "$+{weight}\n";
print "Weight:\n" unless $x=~/Gkg\./g;

    $metric = 1;  # use metric units
    $x = <FILE>;  # read in measurement
...
    else {
        print "Units error!" unless $x =~ /\Glbs\./g;
    }