#!/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"
}
}
}

##</code><code>##

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"

Object: 41.3149986,-93.1019974
Icon: 0,0,000,6,2,"Mike Cox*\n2016-04-09 01:22:27 UTC\nSTATIONARY\nEmail: mike@iowachaser.com\nHam: 146.550 - K0SVR\nTwitter: https://twitter.com/IntoTheMeso\nWeb: www.intothemeso.com\nNote: Into The Meso Chase Team"
Text: 15, 10, 1, "Mike Cox*"
End: