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)