#!/usr/bin/perl
sub missyou () {
print <<EOF
              ###### ## ###### ########## ###### ######## ##  ## #####
+#
              ##  ## ## ##  ##     ##     ##  ## ##       ##  ## ##  #
+#    Are you there?!
              ##   #### ######     ##     ######  ####### ###### #####
+#    gimme a call :)
              ##    ### ##  ##     ##     ##  ##       ## ##  ## ##  #
+#
              ##     ## ##  ##     ##     ##  ## ######## ##  ## ##  #
+#
EOF
}
&missyou ();

[download]

Replies are listed 'Best First'.
(jeffa) Re: love-hate
by jeffa (Bishop) on Aug 02, 2003 at 13:07 UTC 
    use strict;
use warnings;
use Text::FIGlet;

my $fig = Text::FIGlet->new(
    -d => '/path/to/figlet/lib',
    -f => 'banner',
);

my @name = split /\n/, $fig->figify(-A => 'NATASHA');
my $mid  = @name / 2;
$name[$mid-1] .= 'Are you there?!';
$name[$mid]   .= 'gimme a call :)';

for my $you (@name) { miss ($you) }
sub miss { print shift,$/ }

    [download]

    jeffa

    L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
[reply]
[d/l]

Back to Perl Poetry