note
Zaxo
<p>The keyboard input is captured on STDIN:</p>
<code>#!/usr/bin/perl
use warnings;
use strict;
my $input;
print("Your number: "), chomp( $input = <STDIN> )
until $input =~ /^\d+$/;
print 3 * $input - 1, $/;
</code>
<p>The print, chomp sequence uses the comma operator to make the two part of a single expression for the modifier. The alternative is <tt>do { print... ; chomp ...;} until ...;</tt>.</p>
<p>After Compline,<br/>Zaxo</p>
212478
212478