#!/usr/bin/perl
use strict;
use warnings;

my $count = 0;

( defined $count ) ?
    ( print "=" until ( $count ++ == 10 ) ) :
    ( print "Undefined count.\n" );

##</code><code>##

( defined $count ) ?
    ( until ( $count ++ == 10 ) { print "=" } ) :
    ( print "Undefined count.\n" );

##</code><code>##

if ( defined $count ) {
    print "=" until ( $count ++ == 10 );
}
else {
    print "Undefined count.\n";
}