use strict;
use warnings;
use IO::Prompt::Hooked;

my %opt = (
    message  => "Enter text (1-255 characters) to send to clients: ",
    validate => qr/^.{1,255}$/,
    error    => "You have exceeded the limit of 1-255 characters - Try
+ again\n",  
    escape   => qr/^END$/i,
);

while ( my $result = prompt(%opt) ) {
    print ">>$result<<\n"
}
[download]