#!/usr/bin/perl -w

use LWP::Simple;

use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;

@show = (
'Mike Cox*',
);

print <<EOF;
Refresh: 1
Threshold: 999
Title: Into The Meso SN Locations
Font: 1, 14, 0, "Arial"
IconFile: 1, 22, 22, 11, 11, "http://www.spotternetwork.org/icon/spotternet.png"
IconFile: 2, 15, 25, 8, 25, "http://www.spotternetwork.org/icon/arrows.png"
IconFile: 6, 22, 22, 11, 11, "http://www.spotternetwork.org/icon/spotternet_new.png"
EOF

my $sn = get 'http://www.spotternetwork.org/feeds/gr.txt';
$x = length $sn;
$sn = substr($sn, 343, $x-343);


my @values = split('End:', $sn);
foreach my $val (@values){
if($val =~ m/Text:\s15\,\s10\,\s1\,\s\"(.+)\"/g){
my $name = $1;
if (grep {$name eq $_} @show){
    ...;
}{
print $val;
print "End:\n"
}
}
}