print;
        s/(?<=\S)\s/ \$register,/;
        $register= eval $_;
        print "currently: $register\n";
        print "------\n";