#!/usr/bin/perl

print <<END;
bla bla
bla
bla
bla
bla
lb
alb
blla bla
bla
bla bla bla
END

ASK: print "Are you ready? > \n";
$a=<STDIN>;
if ($a =~ /yes/) {print "bla bla bla";exit 0;}
else {goto ASK;}