#!/usr/bin/perl

use strict;

#use LWP::Simple;
#my $content = get("http://www.url.com/scripttemplate.shtml");

my $breakline = "<!-- SCRIPT TEMPLATE BREAKS HERE -->";

my $content = "This is the first part\n" . $breakline . "This is the last part\n";

$content =~ m|(.*)$breakline(.*)|s;

print "First Var contains:  $1";
print "Second Var contains: $2";

##</code><code>##

First Var contains:  This is the first part
Second Var contains: This is the last part