Select Code to Download

#! /usr/bin/perl
use strict;
...
my $_list_to_send_to = "Richard;Smith;myemail\@testmail.com;8005551212
+;|Toby;Johnson;email2\@testmail.com;8885551212|Chanty;Perkins;another
+\@test.com;8665551212;";

# trim the # marks 
$_mergeFields =~ s/#//g;
...
my @records     = split /[|]/, $_list_to_send_to;

my $template = q[

    dear ##fname##
    great prices in \|iaqra and molex watches available
    speial offer for you now

    exclusive offer sent to ##email##

];
foreach( @records ) {
    my $message = $template;
...
    send_spam $customer_record{email}, $message;

}